Правила форума
GetCurDr.PASЯзык:
Русский
English
{ Пример программы для функции GetCurDir }
uses WinDos;
const CDrive : Byte = 3;
var
CurDir : PChar;
begin
GetMem(CurDir, 80);
GetCurDir(CurDir, CDrive);
WriteLn('Текущая директория на диске C - ', CurDir);
end.
const CDrive : Byte = 3;
var
CurDir : PChar;
begin
GetMem(CurDir, 80);
GetCurDir(CurDir, CDrive);
WriteLn('Текущая директория на диске C - ', CurDir);
end.
::
::
::
