怎样关闭一个正在运行的进程？

Question

我想要完整的代码，谢谢！

Answer 1

这个例子是在listview里显示了所有进程的 然后关闭其中你选中的进程的
var
   Exehandle: THandle;
   s : String;
begin
   s := Listview1.Selected.Caption;
   with ListView1 do begin
      Exehandle:= OpenProcess(1,BOOL(0),StrToInt(s));
      TerminateProcess(Exehandle,0);
      ItemFocused.Delete;
   end;
end;

Answer 2

OpenProcess以后就用TerminateProcess了上面的就是正确的方法if TerminateProcess(OpenProcess(PROCESS_ALL_ACCESS, false,
       应用程序的PID, 0) then OK!通过Process Snap技术可以知道的
sHandle := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
Process32First(sHandle, Pn);
...