Правила форума
Chdir.PASLanguage:
Русский
English
{Chdir.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the ChDir procedure.}
begin
{$I-}
{ Get directory name from command line }
ChDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Cannot find directory');
end.
::
::
::
