Otevřít hlavní menu

SetCurDir

Změní aktuální adresář na cestu.

Deklarace
procedure SetCurDir(Dir: PChar)
Režim
Windows
Poznámky
Jestliže Dir určuje písmeno diskové jednotky, změní se i aktuální disk.
Viz také
GetCurDir
ChDir
CreateDir
RemoveDir


Vzorový příklad

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