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.
Пример: 01 { Пример программы для процедуры GetDir }
02
03 Uses WinCrt;
04
05 Var S : String;
06
07 Begin
08 GetDir(0, S); { 0 - Текущий диск }
09 WriteLn('Текущие диск и директория : ', S);
10 End.