setcurdr.pas

 {SetCurDr.PAS}
 
 { Пример программы для процедуры SetCurDir }
 
 Uses WinCrt, WinDos;
 
 Const ChangeTo : PChar = 'C:\';
         CDrive : Byte = 3;
 
 Var CurDir : PChar;
 
 Begin
  GetMem(CurDir, 80);
  SetCurDir(ChangeTo);
  GetCurDir(CurDir, CDrive);
  WriteLn('Текущая директория на диске C - ', CurDir);
 End.