mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 21:03:59 +02:00
12 lines
192 B
ObjectPascal
12 lines
192 B
ObjectPascal
Program Example7;
|
|
|
|
{ Program to demonstrate the ChDir function. }
|
|
|
|
begin
|
|
{$I-}
|
|
ChDir (ParamStr(1));
|
|
if IOresult<>0 then
|
|
Writeln ('Cannot change to directory : ',paramstr (1));
|
|
end.
|
|
|