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