*★已知某一个进程句柄，如何得到此进程下所有打开窗体的句柄？ ( 积分: 200 )

ysai · 2005-02-16

没有程序? 有个RAR压缩包呀,如果不能下载....那真是RPWT了

smokingroom · 2005-02-16

唉,GetProcessID的代码你上面不是有吗? uses  TlHelp32; function GetProcessID(lpszProcName: PChar): DWORD ; var  hSnapShot:THandle;  ProcessEntry

ROCESSENTRY32;  bFlag:BOOL; begin  Result:=0;  hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);  if(hSnapshot&lt;&gt;INVALID_HANDLE_VALUE) then  try    FillChar(ProcessEntry,Sizeof(PROCESSENTRY32),0);    ProcessEntry.dwSize:=Sizeof(PROCESSENTRY32);    bFlag:=Process32First(hSnapshot,ProcessEntry);    while bFlag do    begin      if Pos(UpperCase(lpszProcName),UpperCase(ProcessEntry.szExeFile)) &gt; 0 then      begin        Result:=ProcessEntry.th32ProcessID;        Break;      end;      ProcessEntry.dwSize:=sizeof(PROCESSENTRY32);      bFlag:=Process32Next(hSnapshot,ProcessEntry);    end;  finally    CloseHandle(hSnapshot);  end; end;

abencat · 2005-02-16

呵呵   你看我这样写还是不行的  我的系统是2003 procedure TForm1.Button2Click(Sender: TObject); function EnumWindowsProc(hwnd:HWND;lParam:LPARAM):BOOL;stdcall; var  ProcID

WORD;  szCaption:array[0..255] of Char; begin  Result:=True;  GetWindowThreadProcessID(hwnd,ProcID);  if ProcID=dwProcessID then  begin    SendMessage(hwnd,WM_GETTEXT,255,Integer(@szCaption));    Form1.Memo1.Lines.Add(Format('Handle:%.5d  Caption:%s',[hwnd,szCaption]));  end; end; Var  lppe: TProcessEntry32;  found: boolean;  Hand: THandle; Begin  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);  found := Process32First(Hand, lppe);  While found Do    Begin      ListBox1.Items.Add(StrPas(lppe.szExeFile)); //列出所有进程。      If StrPas(lppe.szExeFile) = 'delphi32.exe' Then         begin           dwProcessID:=Hand;           EnumWindows(@EnumWindowsProc,0);           exit;         end;      found := Process32Next(Hand, lppe);    End; End;

abencat · 2005-02-16

基本搞定  散

uc · 2005-02-16

根据进程句柄,不能列举进程的窗口!! 根据进程ID列举进程所有窗口句柄的方法：用CreateToolhelp32Snapshot列举系统线程(一个进程有多个线程)；对每个线程，如果其进程ID=规定的进程ID，则用EnumThreadWindows等列举线程窗口。 下面的程序运行结果与spyxx对照过，完全正确。 ============================== 根据进程ID列举进程所有窗口句柄 ============================== unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, TLHelp32; type  TForm1 = class(TForm)    Button1: TButton;    ListBox1: TListBox;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);    procedure MyENumChildWindows(h: HWND);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.MyENumChildWindows(h: HWND); var  h1: HWND; begin  h1:=GetWindow(h,GW_CHILD);  While(h1&gt;0) do  begin    ListBox1.Items.Add(IntToHex(h1,8));    if GetWindow(h1,GW_CHILD)&gt;0 then MyENumChildWindows(h1);    h1:=GetWindow(h1,GW_HWNDNEXT);  end; end; function WNDENUMPROC(h: HWND; l: lParam): bool; StdCall; begin  Form1.ListBox1.Items.Add(IntToHex(h,8));  Form1.MyENumChildWindows(h);  result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var  Lpte: TThreadEntry32;  Found: boolean;  Handle: THandle; begin  Handle:=CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,0);  lpte.dwSize:=Sizeof(TThreadEntry32);  Found:=Thread32First(Handle,Lpte);  while Found do  begin    //如果线程的进程ID=规定的进程ID    if Lpte.th32OwnerProcessID=strtoint(edit1.text) then    begin        EnumThreadWindows(Lpte.th32ThreadID,@WNDENUMPROC,0);    end;    Found:=Thread32Next(Handle,Lpte);  end;  CloseHandle(Handle); end; end.

*★已知某一个进程句柄，如何得到此进程下所有打开窗体的句柄？ ( 积分: 200 )

ysai

Unregistered / Unconfirmed

smokingroom

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

uc

Unregistered / Unconfirmed

Similar threads