getcurdr.pas

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