Функция GetCurDir()

Модуль WinDos

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

Объявление:

Function GetCurDir(Dir : PChar; Drive : Byte) : PChar;

Режим:

Windows, Real, Protected

Замечание:

Параметр Drive:

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

Пример:

{ Пример программы для функции GetCurDir }

Uses Dos;

Const CDrive : Byte = 3;

Var CurDir : PChar;

Begin
 GetMem(CurDir, 80);
 GetCurDir(CurDir, CDrive);
 WriteLn('Текущая директория на диске C - ', CurDir);
End.