fpcdocs/unixex/ex45.pp


1
2
3
4
5
6
7
8
9

Program Example45;

{ Program to demonstrate the FExpand function. }

Uses Unix;

begin
  Writeln ('This program is in : ',FExpand(Paramstr(0)));
end.