GetCurDir

Vrací aktuální adresář určené diskové jednotky.

Deklarace

function GetCurDir(Dir: PChar; Drive: Byte): PChar

Režim

Windows

Poznámky

kde

0

Aktuální jednotka

1

Mechanika A

2

Mechanika B

3

Disk C

atd.

Viz také

SetCurDir

CreateDir

RemoveDir

Vzorový příklad

{GetCurDr.PAS}
{Vzorový příklad pro funkci GetCurDir.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
const
  CDrive:Byte = 3;
var
  CurDir: PChar;
begin
  GetMem(CurDir, 80);
  GetCurDir(CurDir, CDrive);
  Writeln('Aktuální adresář na disku C je ',
           CurDir,'.');
end.