Запуск внешнего exe

[vaximan]

Доброго времени суток наимудрейшие пользователи форума!
У меня появилась некоторая проблема с запуском другого exe из моей программы.
Проблема в том что мне нужно узнать путь до исполняемого exe.
Я делаю это функцией

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

А после использую ее вот так

procedure TForm4.sButton1Click(Sender: TObject);
var
s:string;
begin
s:='ExtractFilePath test1.exe';
WinExec (PChar(s),SW_SHOWDEFAULT);
end;

Мне как бы надо запустить по нажатию на Button exe из той же директории что и программа.
Но после компиляции и нажатия на кнопку тупо не чего не происходит.
Да,я подозреваю что не правильно написал путь в этой строчке

s:='ExtractFilePath test1.exe';

Но как это сделать правильно с учетом что директория будет меняться.
А также хотелось бы поинтересоваться как можно запуск произвести с запросом параметров на получение прав администратора (это касается внешнего а не основного exe)
Заранее благодарен за подсказки.

[Serge_Bliznykov]

жуть...

попробуйте:

  s:= ExtractFilePath(ParamStr(0)) + 'test1.exe';
  WinExec (PChar(s),SW_SHOWDEFAULT);

А также хотелось бы поинтересоваться как можно запуск произвести с запросом параметров на получение прав администратора (это касается внешнего а не основного exe)

копайте, например, в сторону использования CreateProcessWithLogonW

[Stilet]

s:=ApplicationPath+'ExtractFilePath test1.exe';

[vaximan]

Сообщение от Serge_Bliznykov

жуть...

попробуйте:

  s:= ExtractFilePath(ParamStr(0)) + 'test1.exe';
  WinExec (PChar(s),SW_SHOWDEFAULT);

копайте, например, в сторону использования CreateProcessWithLogonW

Спасибо за совет,да же не ожидал готового кода.Все верно и все работает)