如何列出所有运行程序进程，并可以杀掉指定的进程，1000分在等各位高手啊！(300分)

壹平 · 2002-02-08

如何列出所有运行程序进程，并可以杀掉指定的进程，1000分在等各位高手啊！ delphi 和 C++B 的都可以！

honestman · 2002-02-08

翻翻旧贴，N年前就已经讨论过了。

zlj555 · 2002-02-08

我知道呀 unit Unit1; interface uses   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;       ListboxRunFile.Items.Add(p.ExeFile);     end; end; procedure TForm1.Button2Click(Sender: TObject); begin   My_RunFileScan(ListBox1); end; end.

荷塘新月 · 2002-02-08

我有一个程序，专门用来查看、清除程序，DELPHI5下编译通过。

hjy2000 · 2002-02-08

看看API

yanlei · 2002-02-08

uses Tlhelp32; function KillTask(ExeFileName: string): integer; const     PROCESS_TERMINATE = $0001; var     ContinueLoop: BOOL;     FSnapshotHandle: THandle;     FProcessEntry32: TProcessEntry32; begin     result := 0;     FSnapshotHandle := CreateToolhelp32Snapshot         (TH32CS_SNAPPROCESS, 0);     FProcessEntry32.dwSize := Sizeof(FProcessEntry32);     ContinueLoop := Process32First(FSnapshotHandle,         FProcessEntry32);     while integer(ContinueLoop) <> 0 do     begin         if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =             UpperCase(ExeFileName))             or (UpperCase(FProcessEntry32.szExeFile) =             UpperCase(ExeFileName))) then             Result := Integer(TerminateProcess(OpenProcess(                 PROCESS_TERMINATE, BOOL(0),                 FProcessEntry32.th32ProcessID), 0));         ContinueLoop := Process32Next(FSnapshotHandle,             FProcessEntry32);     end;     CloseHandle(FSnapshotHandle); end;

Shenxinaz · 2002-02-14

记得要引用ToolsAPI:   TLHELP32  ; procedure TForm1.Button1Click(Sender: TObject); var Entry: TProcessEntry32;     h: THandle; begin    Listbox1.Items.Clear;    h := CreateToolhelp32Snapshot(2,0);    if Process32First(h,Entry) then    begin       Listbox1.Items.Add(Entry.szExeFile + '  -  ' + IntToStr(Entry.pcPriClassBase));       while Process32Next(h,Entry) do          Listbox1.Items.Add(Entry.szExeFile+ '  -  ' + IntToStr(Entry.pcPriClassBase));    end;    CloseHandle(h); end;

xxhsh · 2002-02-22

列出所有的进程！d5指南有，这是部分代码，如果你要，我可以发给你 xxhsh@263.net procedure TMainForm.FormCreate(Sender: TObject); begin   if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then     FWinInfo := TWin9xInfo.Create   else if Win32Platform = VER_PLATFORM_WIN32_NT then     FWinInfo := TWinNTInfo.Create   else     raise Exception.Create('This application must be run on Win32');   RefreshItemClick(nil); end; constructor TWin9xInfo.Create; begin   FProcList := TProcList.Create;   FWinIcon := LoadImage(0, IDI_WINLOGO, IMAGE_ICON, LR_DEFAULTSIZE,     LR_DEFAULTSIZE, LR_DEFAULTSIZE or LR_DEFAULTCOLOR or LR_SHARED); end; destructor TWin9xInfo.Destroy; begin   DestroyIcon(FWinIcon);   if FSnap > 0 then CloseHandle(FSnap);   FProcList.Free;   inherited Destroy; end; procedure TWin9xInfo.FillProcessInfoList(ListView: TListView;   ImageList: TImageList); var   I: Integer;   ExeFile: string;   PE: TProcessEntry32;   HAppIcon: HIcon; begin   Refresh;   ListView.Columns.Clear;   ListView.Items.Clear;   for I := Low(ProcessInfoCaptions) to High(ProcessInfoCaptions) do     with ListView.Columns.Add do     begin       if I = 0 then Width := 285       else Width := 75;       Caption := ProcessInfoCaptions;     end;   for I := 0 to FProcList.Count - 1 do   begin     PE := PProcessEntry32(FProcList.Items)^;     HAppIcon := ExtractIcon(HInstance, PE.szExeFile, 0);     try       if HAppIcon = 0 then HAppIcon := FWinIcon;       ExeFile := PE.szExeFile;       if ListView.ViewStyle = vsList then         ExeFile := ExtractFileName(ExeFile);       // insert new item, set its caption, add subitems       with ListView.Items.Add, SubItems do       begin         Caption := ExeFile;         Data := FProcList.Items;         Add(IntToStr(PE.cntThreads));         Add(IntToHex(PE.th32ProcessID, 8));         Add(IntToHex(PE.th32ParentProcessID, 8));         if ImageList <> nil then           ImageIndex := ImageList_AddIcon(ImageList.Handle, HAppIcon);       end;     finally       if HAppIcon <> FWinIcon then DestroyIcon(HAppIcon);     end;   end; end;

kingdeezj · 2002-03-02

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var     i:integer;     hCurrentWindow: HWnd;     szText: array[0..254] of char;   begin     ListBox1.Items.Clear;     hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);     i:=hCurrentWindow;     While hCurrentWindow <> 0 Do     Begin         If GetWindowText(hCurrentWindow, @szText, 255) > 0 Then begin            ListBox1.Items.add(Strpas(@szText)); //           if  Strpas(@szText)='Myform' then //           postmessage(hCurrentWindow,WM_SYSCOMMAND,SC_CLOSE,0);            end;            hCurrentWindow := GetNextWindow(hCurrentWindow, GW_HWNDNEXT);     End;     end; procedure TForm1.Button2Click(Sender: TObject); var     i:integer;     hCurrentWindow: HWnd;     szText: array[0..254] of char;     ProTitle:string;   begin     ProTitle:=Listbox1.Items[Listbox1.ItemIndex];     hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);     i:=hCurrentWindow;     While hCurrentWindow <> 0 Do     Begin         If GetWindowText(hCurrentWindow, @szText, 255) > 0 Then begin            if  Strpas(@szText)=ProTitle then begin              postmessage(hCurrentWindow,WM_SYSCOMMAND,SC_CLOSE,0);              listbox1.Items.Delete(listbox1.ItemIndex);              end;              end;            hCurrentWindow := GetNextWindow(hCurrentWindow, GW_HWNDNEXT);     End;     end; end.

zhumoo · 2002-03-02

关注

yfdciom · 2002-03-02

zlj555的回答是正确的，不过要注意，在结束进程时，要这样写： TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,p.th32ProcessID),0); 总体的思路就是： 1：建立系统快照 2：process32first 得到TProcessEntry32结构 3：process32next 4:termenate() 值得注意的是TProcessEntry32中的th32ProcessID并不是进程的句柄。

fanren945 · 2002-03-02

为什么不用Exitprocess()?

guyigood · 2002-03-02

用sendmessage(hwnd,wm_close,0,0)

NowCan · 2002-03-02

还要注意权限问题，有些进程没有足够的权限是杀不掉的。

maxim · 2002-03-14

我知道怎么做，给我Email  MaximChen@hotmail.com 准备给我加分吧。

lausunny · 2002-03-14

靠~~~知道就帖出来呀。。。。不帖不要给分

bubble · 2002-03-15

另外发现的一种 unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    ListBox1: TListBox;     Label1: TLabel;     Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure ListBox1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;   Wnd: HWND; implementation {$R *.DFM} Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; var  caption: Array [0..128] of Char; begin  Result := True;  if { skip invisible windows }     IsWindowVisible(Wnd) and     { only process truly top-level windows. GetWindowLong must be used, not GetParent }     ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or      (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow)) and     { skip WS_EX_TOOLWINDOW windows }     ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)  then begin    SendMessage( Wnd, WM_GETTEXT, Sizeof( caption ), integer(@caption));    lb.Items.AddObject( caption, TObject( Wnd ));  end; end; procedure TForm1.Button1Click(Sender: TObject); begin  listbox1.clear;  EnumWindows( @EnumWindowsProc, integer( listbox1 )); end; procedure TForm1.ListBox1Click(Sender: TObject); var  theClassname: Array [0..128] of Char;  tid, pid: DWORD;  intExitCode

WORD; begin  With Sender As TListbox Do Begin    If ItemIndex >= 0 Then Begin      Wnd:= HWND(Items.Objects[ itemindex ]);      If Wnd <> 0 Then Begin        Windows.GetClassname( Wnd, theClassname, Sizeof( classname ));        tid := GetWindowThreadProcessID( Wnd, @pid );        label1.caption :=          Format(            'HWND: %8.8x'#13#10+            'Class: %s'#13#10+            'Process ID: %8.8x'#13#10+            'Thread ID: %8.8x',            [Wnd, theClassname, pid, tid] );      End;    End;  End; end; procedure TForm1.Button2Click(Sender: TObject); begin   PostMessage(Wnd, WM_CLOSE, 0, 0);   Button1.Click; end;

如何列出所有运行程序进程，并可以杀掉指定的进程，1000分在等各位高手啊！(300分)

壹平

Unregistered / Unconfirmed

honestman

Unregistered / Unconfirmed

zlj555

Unregistered / Unconfirmed

荷塘新月

Unregistered / Unconfirmed

hjy2000

Unregistered / Unconfirmed

yanlei

Unregistered / Unconfirmed

Shenxinaz

Unregistered / Unconfirmed

xxhsh

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

zhumoo

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

fanren945

Unregistered / Unconfirmed

guyigood

Unregistered / Unconfirmed

NowCan

Unregistered / Unconfirmed

maxim

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

Similar threads