Модуль: System
Описание
Процедура возвращает имя текущего каталога на диске, указанном в параметре Drive. Переменная Drive может иметь следующие значения:
текущий диск - 0, 'А' - 1, 'В' - 2, 'C' - 3 и т.д.
Если задан не существующий или недоступный в данный момент диск (например, отсутствует дискета в дисководе), то функция возвращает текущий каталог на текущем диске.
Пример
var
S: string;
begin
GetDir( 0, S);
MessageDlg( 'Текущий каталог: '+ S, mtInformation, [mbOk], 0);
end;