Процедура GetDir

Возвращает текущий каталог заданного диска.

Объявление:

Procedure GetDir(D : Byte; Var S : String);

 Параметр D:
   0 - Текущий диск
   1 - Диск A
   2 - Диск B
   3 - Диск C
 И так далее...

Режим:

Windows, Real, Protected

Замечание:

Не выполняет проверку ошибок. Если диск, заданный параметром D недопустим, то в строке S возвращается X:\, как будто это корневой каталог недопустимого диска.

Процедура GetCurDir выполняет ту же функцию, что и GetDir, но в качестве одного из параметров используется строка с нулевым окончанием, вместо строки стиля Pascal.

Пример:

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

Uses WinCrt;

Var S : String;

Begin
 GetDir(0, S); { 0 - Текущий диск }
 WriteLn('Текущие диск и директория : ', S);
End.