Procedure Chdir (const S : string) ;
Chdir changes the working directory of the process to S.
If the directory S doesn't exist, a run-time error is generated.
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.