Code
TerminateProcess(
HANDLE hProcess, // Указатель процесса
UINT uExitCode // Код возврата процесса
);
Code
function TerminateTask(PID: integer): integer;
var
ph: integer;
lpExitCode: Cardinal;
begin
ph := OpenProcess(PROCESS_ALL_ACCESS, true, pid);
GetExitCodeProcess(ph, lpExitCode);
TerminateProcess(ph, lpExitCode);
CloseHandle(ph);
end;
В качестве параметра в функцию подаешь ID процесса. Можешь его узнать его в Диспетчере задач, единственное, что каждый раз идентификатор у процесса разный. Так что нужно еще узнавать его.
Можно зная заголовок окна, таким образом:
Quote
function TakeProcessID(WindowTitle: string): Integer;
var
WH: THandle;
begin
result := 0;
WH := FindWindow(nil, pchar(WindowTitle));
if WH <> 0 then
GetWindowThreadProcessID(WH, @Result);
end;
Это еще можеш посмотреть: /publ/30-1-0-140
И встречный вопрос, нужно именно убить процесс или завершить? Просто можно послать обычное сообщение окну на закрытие, и все.
