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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

MessageDlg(‘program path = ‘ ExtractFilePath(Application.ExeName,

mtInformation, [mbOk], 0);

или

function ApplicationPath: string;

begin

Result := ExtractFilePath(ParamStr(0));

end;

{/codecitation}