How to find out program path

Problem/Question/Abstract:

How to find out program path

Answer:

function Path_App: string;
var
  x: string;
  y: string;
begin
  x := ParamStr(0);
  y := ExtractFileName(ParamStr(0));
  Result := copy(x, 0, length(x) - length(y));
end;