Правила форума
GetCurDr.PASLanguage:
Русский
English
{GetCurDr.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the GetCurDir function.}
uses WinCrt, WinDOS;
const
CDrive:Byte = 3;
var
CurDir: PChar;
begin
GetMem(CurDir, 80);
GetCurDir(CurDir, CDrive);
Writeln('The current directory on drive c is ', CurDir,'.');
end.
::
::
::
