getdir.pas

Пример программы для процедуры GetDir.

Код примера
 {GetDir.PAS}
 
 { Пример программы для процедуры GetDir }
 
 Uses WinCrt;
 
 Var S : String;
 
 Begin
  GetDir(0, S); { 0 - Текущий диск }
  WriteLn('Текущие диск и директория : ', S);
 End.

Скачать getdir.pas