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