Function KillProcess(TheProcName:String):boolean;var
isOK:Boolean;ProcessHandle:Thandle;ProcessStruct:TProcessEntry32;
Function KillProcessID(ProcessID:Cardinal):boolean;
var
H:THandle;
begin
H:=OpenProcess(Process_All_Access, true,ProcessID);
Result:=TerminateProcess(H,0); ...