mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-01 15:40:57 +01:00
12 lines
193 B
ObjectPascal
12 lines
193 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.
|
|
|