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:
39:
40:

function KillProcess(pid: integer): boolean; register;
// by retnyg
asm
   push 0
   test eax, eax
   jz @out
   push EAX
   push 0
   push 1
   CALL OpenProcess
   MOV ESI, EAX
   TEST ESI, ESI
   JE @final
   PUSH 1
   PUSH ESI
   Call TerminateProcess
   TEST EAX, EAX
   JNZ @success
   jmp @final
   @success:
   pop edi
   push 1
   @final:
   PUSH ESI
   CALL closehandle
   @out:
   pop eax
end;
{  // pascal version
  var prochnd: thandle;
  begin
    result := false;
    if pid > 0 then begin
      procHnd := OpenProcess(1, False, pID);
      if procHnd <> 0 then  begin
         result:= TerminateProcess(procHnd, 1);
         CloseHandle(ProcHnd);
      end;
    end;
  end; }                    

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:

procedure KillIt(dwProcID: DWORD); 
var 
  hProcess : Cardinal; 
  dw       : DWORD; 
begin 
  { open the process and store the process-handle } 
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID); 
  { kill it } 
  TerminateProcess(hProcess, 0); 
  { TerminateProcess returns immediately, so wie have to verify the result via 
    WaitfForSingleObject } 
  dw := WaitForSingleObject(hProcess, 5000); 
  case dw of 
    { everythings's all right, we killed the process } 
    WAIT_OBJECT_0: Messagebox(Application.Handle, 'Prozess wurde beendet.', 'Prozess beenden', 
      MB_ICONINFORMATION); 
    { process could not be terminated after 5 seconds } 
    WAIT_TIMEOUT: 
    begin 
      Messagebox(Application.Handle, 'Prozess konnte nicht innerhalb von 5 Sekunden beendet werden.', 
        'Prozess beenden', MB_ICONSTOP); 
      exit; 
    end; 
    { error in calling WaitForSingleObject } 
    WAIT_FAILED: 
    begin 
      RaiseLastOSError; 
      exit; 
    end; 
  end; 
  { and refresh combobox contend } 
  Form1.Button1Click(Form1); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

// üblicher weg prozesse zu killen. allerdings startet sich explorer.exe gleich neu
function KillProcess(pid: integer): boolean; stdcall;
var procHnd: THandle;
begin
  result := false;
  if pID <> 0 then begin
    procHnd := OpenProcess
    (PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION, False, pID);
    if procHnd <> 0 then  begin
       result:= TerminateProcess(procHnd, 0);
       CloseHandle(ProcHnd);
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function killprocess(pid:dword):boolean;
//by retnyg
var prochnd: thandle;
begin
  result := false;
  if pid > 0 then begin
    procHnd := OpenProcess(PROCESS_TERMINATE, False, pID);
    if procHnd <> 0 then  begin
       result:= TerminateProcess(procHnd, 1);
       // 2.ter parameter ist hier der exitcode für den prozess und hat keine konstante
       CloseHandle(ProcHnd);
    end;
  end;
end;