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

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

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

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

или

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