Как получить путь запущенного приложения

Благодарю за поддержку!

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как получить путь запущенного приложения

для этого используется функция ExtractFilePath. Вот примеры её использования:

MessageDlg('program path = ' + ExtractFilePath(Application.ExeName,
  mtInformation, [mbOk], 0);

или

function ApplicationPath: string;
begin
  Result := ExtractFilePath(ParamStr(0));
end;