1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

function KillProcess(pid: integer): boolean; register;
var procHnd: THandle;
begin
  result := false;
  if pID <> 0 then begin
    asm
       //push DWORD PTR[PID]
       push EAX
       push 0
       push 1
       CALL OpenProcess
       MOV ESI, EAX
       TEST ESI, ESI
       JE @fehler
       PUSH 1
       PUSH ESI
       Call TerminateProcess
       TEST EAX, EAX
       JNZ @success
       @fehler:
       MOV DWORD PTR[result], 0
       jmp @final
//       CALL GetLastError
//       PUSH EAX
//       CALL SysErrorMessage
       @success:
       MOV DWORD PTR[result], 1
       @final:
       PUSH ESI
       CALL closehandle
    end; end; 
{    procHnd := OpenProcess(1, False, pID);
    if procHnd <> 0 then  begin
       result:= TerminateProcess(procHnd, 1);
    CloseHandle(ProcHnd);
    end;
  end; }
end;