[Помогите!] Как перезапустить процесс зная его имя

[Чювашка]

Мне надо перезапустить процесс зная его имя.
В поисковике не нашол, нашол только по закрытию.

procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow(Nil, 'Имя программы'), WM_QUIT, 0, 0);
end;

Мне надо что-то простенькое.

[Mebius]

Цитата: Сообщение от Чювашка Мне надо перезапустить процесс зная его имя. В поисковике не нашол, нашол только по закрытию. procedure TForm1.Button1Click(Sender: TObject); begin PostMessage(FindWindow(Nil, 'Имя программы'), WM_QUIT, 0, 0); end; Мне надо что-то простенькое.

а если таких процессов штук 10-15? или вы 100% уверены что процесс будет только в еденичном экземпляре?

[Чювашка]

Цитата: Сообщение от Mebius а если таких процессов штук 10-15? или вы 100% уверены что процесс будет только в еденичном экземпляре?

Он в еденичном экземпляре.

[Dinmaite]

А если процесс не имеет окна?)

Ладно, в любом случае алгоритм таков.
1. Вырубить процесс. ([Ссылки могут видеть только зарегистрированные пользователи. ])
2. Запустить процесс. (CreateProcess, ShellExecute, WinExec, в общем что понравится).

[Чювашка]

ShellExecute, WinExec - для них нужно указывать путь.
А с CreateProcess так не разобрался.

[Dinmaite]

Путь можно определить из процесса.
GetProcessName (если мне не изменил память)