fpcdocs/olinuxex/ex47.pp


1
2
3
4
5
6
7
8
9
10
11
12

Program Example47;

{ Program to demonstrate the DirName function. }

Uses oldlinux;

Var S : String;

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