Author: Tomas Rutkauskas

How to find out program path

Answer:

1   function Path_App: string;
2   var
3     x: string;
4     y: string;
5   begin
6     x := ParamStr(0);
7     y := ExtractFileName(ParamStr(0));
8     Result := copy(x, 0, length(x) - length(y));
9   end;