Vrací aktuální adresář určené diskové jednotky.
- Deklarace
procedure GetDir(D: Byte; var S: String);
kde D je:
| 0 | Aktuální jednotka |
|---|---|
| 1 | Mechanika A |
| 2 | Mechanika B |
| 3 | Disk C |
atd.
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Neprovádí žádnou kontrolu chyb. Jestliže jednotka určená parametrem D je neplatná, S vrátí X:\, jako by šlo o hlavní adresář této neplatné jednotky.
- GetCurDir vykonává stejnou funkci jako GetDir, ale místo řetězce pascalského stylu používá jako argument nulou zakončené řetězce.
- Viz také
- ChDir
Vzorový příklad
{GetDir.PAS}
{Vzorový příklad pro proceduru GetDir.}
{ Pro Windows: }
{ uses WinCrt; }
var
s : String;
begin
GetDir(0,s); { 0 = aktuálni disk }
Writeln('Aktuální disk a adresář: ', s);
end.