Процедура 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.
 
 
 
 

См. также: