Запуск и остановка дочерней программы?

[Пепел Феникса]

сохраните хендл из ProcInfo.hProcess(ProcInfo.hThread надо закрыть)
и по нему закрывайте.

[Mr.karpiks]

Сообщение от Пепел Феникса

сохраните хендл из ProcInfo.hProcess(ProcInfo.hThread надо закрыть)
и по нему закрывайте.

Можешь пример кода привести, пожалуйста я не так селен в delphi!

[Mr.karpiks]

Исправите если что не так, попробовал написать сам функцию (собрать из найденного!) закрытия но не знаю что получилось!

procedure KillExe(Name: PChar; Title: PChar);
const
 PROCESS_TERMINATE = $0001;
var
 ProcessHandle:THandle;
 ProcessID:Integer;
 TheWindow:HWND;
begin
 TheWindow:=FindWindow(Name, Title);
 GetWindowThreadProcessID(TheWindow, @ProcessID);
 ProcessHandle:=OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);
end;

Исправте если что не так!

[Kix.IV]

Название функции убило.
Явный недостаток: ты сможешь закрыть только по окну. Не будь окна, программу не закроешь.
Предлагаю тебе такой вариант:

SendMessage(FindWindows(nil,'Название окна'),WM_DESTROY,0,0);

Вроде бы так. Возможно вместо WM_DESTROY надо написать WM_EXIT.

[Пепел Феникса]

ТС, вам говорят сохранить хендл hProcess, а вы городите хрень.
обьявляем поле класса формы или глоб переменную типа THandle, допустим chproc:THandle;
после открытия пишем chproc:=ProcInfo.hProcess(hThread закрываем как и прежде)
когда нужно закрыть используем в TerminateProcess этот самый chproc.

[Kix.IV]

А смысл сохранять хэндл? Он в своей процедуре этого не делает.

[Пепел Феникса]

а зачем нам снова искать процесс?

[Kix.IV]

Я не понимаю тебя.
Считаю, что автору больше помощь не нужна и можно закрыть тему.

[Пепел Феникса]

что хочет ТС, по одной кнопке открыть процесс, по второй закрыть.
и зачем нам закрывать хендл если он будет еще нужен во второй кнопке?
вот для этого и сохраняем его.

[Kix.IV]

И в каком месте он его сохраняет?:

procedure KillExe(Name: PChar; Title: PChar);
const
 PROCESS_TERMINATE = $0001;
var
 ProcessHandle:THandle;
 ProcessID:Integer;
 TheWindow:HWND;
begin
 TheWindow:=FindWindow(Name, Title);
 GetWindowThreadProcessID(TheWindow, @ProcessID);
 ProcessHandle:=OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);
end;

Эта процедура просто закрывает процесс по его окну. Я предложил более простой вариант.