Delphi-Help

Описание

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

Процедура GetDir сохраняет в переданной строке параметра Directory диск указанный в параметре Drive плюс путь к текущему каталогу. Значения параметра Drive: 0 = Текущий диск 1 = диск А 2 = диск B 3 = диск C 4 = диск D

Пример кода

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

Следующий вывод будет обязательно изменятся на других ПК:
C:\Program Files\Borland\Delphi7\Projects

Примечание