To jest funkcja , która zwraca true gdy proces zostal zamkniety a false w przeciwnym wypadku :
function ZabijProces(ProcessId:Integer):Boolean;
var
Uchwyt:tHandle;
begin
Uchwyt:=OpenProcess(PROCESS_TERMINATE,bool(0),ProcessId);
if TerminateProcess(Uchwyt,0) then result:=true else result:=false;
CloseHandle(Uchwyt);
end;
Użycie :
procedure TForm1.Button1Click(Sender: TObject);
begin
ZabijProces(numer id procesu);
end;