Процедура GetDir – получает текущий каталог (диск плюс путь) для указанного диска

Процедура GetDir в Delphi получает текущий каталог (диск плюс путь) для указанного диска.

System unit

procedure GetDir (Drive : Byte; var Directory : string);

Процедура GetDir сохраняет в переданной строке параметра Directory диск указанный в параметре Drive плюс путь к текущему каталогу.

Значения параметра Drive: 0 = Текущий диск 1 = диск А 2 = диск B 3 = диск C 4 = диск D.

Процедура GetDir: Получение директории для диска C:\

var
  DirName : string;

begin
  GetDir(3, DirName);   // Сохраняем директорию C: в переменной DirName
  ShowMessage(DirName);
end;

Следующий вывод будет обязательно изменятся на других ПК:

C:\Program Files\Borland\Delphi7\Projects