GetCurDr.PAS

Язык:
Русский
English


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

uses WinDos;

const CDrive : Byte = 3;

var
  CurDir : PChar;

begin
 GetMem(CurDir, 80);
  GetCurDir(CurDir, CDrive);
 WriteLn('Текущая директория на диске C - ', CurDir);
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //