Завершить процесс

[doniyor]

Привет! Спомощью функции я достал список всех процессов. Вопрос - Как завершить выбраный в ListView процесс?

[rpy3uH]

юзай поиск по форуму!!! тема обсуждается с периодичностью раз в две недели (ключевое слово TerminateProcess)
вот, например, http://programmersforum.ru/showthread.php?t=14288

[vitalik007]

Function getProcessId(Exename:string):Dword;
var snap:DWORD;
pe:TprocessEntry32;
begin
result:=0;
snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if snap <>INVALID_HANDLE_VALUE then begin
pe.dwSize:=sizeof(TPROCESSENTRY32);
if process32First(snap,pe) then
repeat
if  pe.szExeFile=exename then begin
result:=pe.th32ProcessID;
closehandle(snap);
exit;
end;
until  not process32Next(snap,pe);
closehandle(snap);
result:=0;
end;
end;

function TerminateProcess(id:integer):boolean;
var  hprocess:Thandle;
begin
hprocess:=OpenProcess(PROCESS_TERMINATE,false,id);
if (hprocess=0) then begin
result:=false;
exit;
end;
result:=windows.TerminateProcess(hprocess,0);
closehandle(hprocess);
if not result then exit;
result:=True;
end;