Процедура GetDir
Возвращает текущий каталог заданного диска.
Объявление:
Procedure GetDir(D : Byte; Var S : String);
Параметр D:
0 - Текущий диск
1 - Диск A
2 - Диск B
3 - Диск C
И так далее...
Режим:
Замечания:
Не выполняет проверку ошибок. Если диск, заданный параметром D недопустим,
то в строке S возвращается X:\, как будто это корневой каталог недопустимого
диска.
Процедура GetCurDir выполняет ту же функцию, что и GetDir, но в качестве
одного из параметров используется строка с нулевым окончанием, вместо строки
стиля Pascal.
Пример:
Uses WinCrt;
Var S : String;
Begin
GetDir(0, S); { 0 - Текущий диск }
WriteLn('Текущие диск и директория : ', S);
End.
См. также: