fpcdocs/refex/ex29.pp


1
2
3
4
5
6
7
8
9
10

Program Example29;

{ Program to demonstrate the GetDir function. }

Var S : String;

begin
  GetDir (0,S);
  Writeln ('Current directory is : ',S);
end.