如何得到系统的所有进程，所有句炳？(100分)

路远 · 2003-02-08

请指点

scLizongliang · 2003-02-08

来自：tinytao, 时间：2001-6-7 12:26:00, ID：557402 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   Grids, StdCtrls, ExtCtrls,   tlhelp32; //记得加这个 type   Tprocessinfo=record     ExeFile:string;     ProcessId

Word;   end;   Processinfo=^Tprocessinfo;   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Timer1: TTimer;     StringGrid1: TStringGrid;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormActivate(Sender: TObject);   private     { Private declarations }     procedure Initialize;     procedure RefreshList;   //刷新     procedure ProcessList(var PList:TList);  //得进程列表     function KillCourse(Item:integer):String;  //杀进程   public      current:TList;     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var   temp:integer; begin   //这两句可不要,第一句，不在任务栏显示   //第二句屏蔽Ctrl+alt+Del     SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);   SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);   Current:=TList.Create;   Initialize; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var   temp:integer; begin   Current.Free;   //恢复Ctrl+alt+Del   SystemParametersInfo(Spi_screensaverrunning,0,@temp,0); end; procedure TForm1.FormActivate(Sender: TObject); begin   //这句就看你了，调试就不要加了 //  ShowWindow(Handle, SW_HIDE); end; procedure TForm1.Initialize; begin   StringGrid1.FixedCols:=0;   StringGrid1.FixedRows:=1;   StringGrid1.ColCount:=3;   StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goRangeSelect,goRowSelect];   StringGrid1.ColWidths[0]:=70;   StringGrid1.ColWidths[1]:=100;   StringGrid1.ColWidths[2]:=StringGrid1.Width-200;   StringGrid1.DefaultRowHeight:=14;   StringGrid1.Cells[0,0]:='ID';   StringGrid1.Cells[1,0]:='进程';   StringGrid1.Cells[2,0]:='路径';   RefreshList; end; procedure TForm1.ProcessList(var PList: TList); var    p

rocessinfo;    Ok:Bool;    ProcessListHandle:Thandle;    Processstruct:TProcessentry32; begin    PList.Clear;    ProcessListHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);    Processstruct.dwSize:=sizeof(Processstruct);    ok:=process32first(ProcessListHandle,processstruct);    while Ok do       begin        new(p);        p.ExeFile:=Processstruct.szExeFile;        p.ProcessId:=Processstruct.th32ProcessID;        PList.Add(p);        ok:=Process32Next(ProcessListHandle,Processstruct );       end; end; procedure TForm1.RefreshList; var   i:integer;   p

rocessinfo; begin    ProcessList(current);    StringGrid1.RowCount:=current.Count+1;    for i:=1 to StringGrid1.RowCount do    begin      StringGrid1.Cells[0,i]:='';      StringGrid1.Cells[1,i]:='';      StringGrid1.Cells[2,i]:='';    end;    for i:=1 to current.Count do      begin        p:=current.Items[i-1];        StringGrid1.Cells[0,i]:=IntToHex(p.ProcessId,8);        StringGrid1.Cells[1,i]:=ExtractFileName(P.ExeFile);        StringGrid1.Cells[2,i]:=ExtractFilePath(p.ExeFile);      end; end; procedure TForm1.Button1Click(Sender: TObject); var   str:string; begin   if StringGrid1.Selection.Top>0 then      begin        str:=KillCourse(StringGrid1.Selection.Top-1);        if str<>'' then          Application.MessageBox(Pchar(Str),'杀杀杀！',64);          RefreshList;      end; end; function TForm1.KillCourse(Item: integer): String; var   h:Thandle;   a

Word;   p

rocessInfo;   Name:string; begin   Result:='';   try     p:=current.Items[Item];     Name:=ExtractFileName(P.ExeFile);     h:=OpenProcess(Process_All_Access,True,p.ProcessId);     GetExitCodeProcess(h,a);     if TermInateprocess(h,a) then      Result:=Name;   finally   end; end; procedure TForm1.Button2Click(Sender: TObject); begin   RefreshList; end; procedure TForm1.Timer1Timer(Sender: TObject); var   i:integer;   p

rocessInfo; begin   ProcessList(current);   i:=0;   repeat     begin       p:=current.Items;         if Pos('你要杀的',P.ExeFile)>0 then  //注意：不要把你的系统也杀了           begin             KillCourse(i);             ProcessList(current);             i:=-1;           end;       i:=i+1;     end;   until I=current.Count; end; end.

scLizongliang · 2003-02-08

自已看吧，应该看的懂！

路远 · 2003-02-09

我是这样写的，想得到窗口的类： procedure TFormCallback.Button1Click(Sender: TObject);  var   A: string; begin    SetLength (A, 100);   GetClassName (Hwnd,a ,100);//过不去？   FormCallBack.ListBox1.Items.Add (   IntToStr (Hwnd) + ': ' + a);   Result := True; end; 得到获得窗口标识 var b:sting; begin b:=GetWindowLong（hWnd，GWL_ID）； FormCallBack.ListBox1.Items.Add (   IntToStr (Hwnd) + ': ' + b);   Result := True; 我是想得到所有的进程的窗口名，窗口的类，窗口标识 就像delphi带的那个WinSight32一样，那唯有类似WinSight32的源码？

wuan · 2003-03-03

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     ListBox2: TListBox;     Label1: TLabel;     Label2: TLabel;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} function recall(handle:hwnd):boolean;stdcall;  //：回调函数 var lp1,lp2:array[0..255]of char;i,j:integer;s1,s2:string; begin  i:=getwindowtext(handle,lp1,255);  j:=getclassname(handle,lp2,255);  s1:=copy(lp1,1,i);s2:=copy(lp2,1,j);  form1.ListBox1.AddItem(s1,form1);    //:listbox1显示窗口标题，listbox2显示相应类名  form1.listbox2.additem(s2,form1);  recall:=true;  {HANDLE即为窗口的句柄，你可以在回调函数  中对handle操作} end; procedure TForm1.Button1Click(Sender: TObject);   var handle:hwnd; begin listbox1.Clear; EnumWindows(@recall,handle);   //：列举窗口 end; end.  如果要原程序，留下Emai地址。

delphi_newuser · 2003-03-03

var   handlea:HWnd;   szText: array[0..254] of char;   t:integer; begin   ComboBox1.Clear;   t:=0;   handlea := GetWindow(Handle, GW_HWNDFIRST);   while handlea <> 0 do   begin   if GetWindowText(handlea, @szText, 255)>0 then    if strpas(@szText)<>'Default IME' then       ComboBox1.items.Add(StrPas(@szText));    handlea:=GetWindow(handlea, GW_HWNDNEXT);    t:=t+1;   end; end;//得到窗体的句柄柄显示窗体名称

delphi_newuser · 2003-03-03

var p : pProcessInfo;       ContinueLoop:BOOL;       FSnapshotHandle:THandle;       FProcessEntry32:TProcessEntry32;       t:integer; begin   ComboBox2.Clear;   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);   t:=0;   while integer(ContinueLoop)<>0 do   begin     New(p);     p.ExeFile := FProcessEntry32.szExeFile;     p.ProcessID := FProcessEntry32.th32ProcessID;     proID[t]:=p.ProcessID;     t:=t+1;     ComboBox2.Items.Add(p.ExeFile);     ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);   end;   ComboBox2.ItemIndex := 0; end; 显示做有进程，并显示应用程序的名称

kgafly · 2003-03-03

关键函数：EnumWindows

路远 · 2003-03-15

多人接受答案了。

如何得到系统的所有进程，所有句炳？(100分)

路远

Unregistered / Unconfirmed

scLizongliang

Unregistered / Unconfirmed

scLizongliang

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

wuan

Unregistered / Unconfirmed

delphi_newuser

Unregistered / Unconfirmed

delphi_newuser

Unregistered / Unconfirmed

kgafly

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

Similar threads