Правила форума
CreateDr.PASLanguage:
Русский
English
{CreateDr.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the CreateDir procedure.}
uses WinCrt, WinDOS;
const
Create: PChar = 'C:\NEWDIR';
CDrive: Byte = 3;
begin
CreateDir(Create);
Writeln('There is now a new directory at ', Create,'.');
end.
::
::
::
