如用程序何杀死进程？

Question

var
  h,a:THandle; ID:是要杀死进程的ID
h:=openprocess(PROCESS_ALL_ACCESS,True,Id);
        getExitCodeProcess(h,a);
        if terminateProcess(h,a) then
          begin
            Showmessage('进程已关闭！');
           
         end
       else
         showmessage('关闭失败'); 

Answer 1

如何列出所有运行程序进程，并可以杀掉指定的进程，
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, TLHelp32, Controls, Forms, Dialogs,
  StdCtrls;type
  TProcessInfo = record
    ExeFile: string;
    ProcessId: DWORD;
  end;
  ProcessInfo = ^TProcessInfo;
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ProcessList(var pList: TList);
    procedure My_RunFileScan(ListboxRunFile: TListBox);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    Current: TList;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.ProcessList(var pList: TList);
var
  p: ProcessInfo;
  ok: Bool;
  ProcessListHandle: THandle;
  ProcessStruct: TProcessEntry32;
begin
  PList := TList.Create;
  PList.Clear;
  ProcessListHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessStruct.dwSize := Sizeof(ProcessStruct);
  ok := Process32First(ProcessListHandle, ProcessStruct);
  while Integer(ok) <> 0 do
    begin
      new(p);
      p.ExeFile := ProcessStruct.szExeFile;
      p.ProcessID := ProcessStruct.th32ProcessID;
      PList.Add(p);
      ok := Process32Next(ProcessListHandle, ProcessStruct);
    end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  h: THandle;
  a: DWORD;
  p: PRocessInfo;
begin
  if ListBox1.ItemIndex >= 0 then
    begin
      p := Current.Items[ListBox1.ItemIndex];
      h := openProcess(Process_All_Access, true, p.ProcessID);
      GetExitCodeProcess(h, a);      if Integer(TerminateProcess(h, a)) <> 0 then
        begin
          My_RunFileScan(ListBox1);
        end;
    end
  else
    Application.MessageBox('请先选择一个进程!', '黑洞', MB_ICONERROR + MB_OK);
end;procedure TForm1.My_RunFileScan(ListboxRunFile: TListBox);
var
  i: Integer;
  p: PRocessInfo;
begin
  current := TList.Create;
  Current.Clear;
  ListboxRunFile.Clear;
  ProcessList(Current);
  for i := 0 to Current.Count - 1 do
    begin
      new(p);
      p := Current.Items[i];
      ListboxRunFile.Items.Add(p.ExeFile);
    end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  My_RunFileScan(ListBox1);
end;end. 
 

Answer 2

先用FindWindowex找到hwnd，然后用terminateprocess来关闭，或者用sendMessage,WM_CLOSE也可以