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

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

Первый:

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

Второй:

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