Функция GetCurDir

Модуль WinDOS

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

Объявление:

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

Режим: 

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

Пример:

  Uses WinDos;
 
  Const CDrive : Byte = 3;
 
  Var CurDir : PChar;
 
  Begin
   GetMem(CurDir, 80);
   GetCurDir(CurDir, CDrive);
   WriteLn('Текущая директория на диске C - ', CurDir);
  End.
 
 
 
 

См. также: