fpcdocs/dosex/ex11.pp


1
2
3
4
5
6
7
8

Program Example11;
uses Dos;

{ Program to demonstrate the FExpand function. }

begin
  WriteLn('Expanded Name of this program is ',FExpand(ParamStr(0)));
end.