Delphi/Lazarus: Get Program Folder / Path of own Application

That is quite easy. In Paramstr(0) as well as in Application.ExeName, the full path to your application file is stored.

In order to get the corresponding folder, you only have to extract the path from Paramstr(0) or Application.ExeName.

var
  AppFolder: string;
begin
  AppFolder := ExtractFilePath(Application.ExeName);

  // or

  AppFilder := ExtractFilePath(Paramstr(0));
end;

As you can see, you can achieve this with using the function ExtractFilePath(). In this case, this function is cutting off the program file from the path and is correspondingly providing the desired path to your EXE.
Last update on 2021-07-01 | Created on 2016-06-04