Otevřít hlavní menu

GetDir

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
MkDir
RmDir


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.