fpcdocs/refex/ex7.pp


1
2
3
4
5
6
7
8
9
10
11

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.