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

abencat · 2005-02-16

已知某一个进程句柄，如何得到此进程下所有打开窗体的句柄？谢谢 比如 delphi32.exe的

abencat · 2005-02-16

已知某一个进程句柄，如何得到此进程下所有打开窗体的句柄？谢谢 比如 delphi32.exe的

jianguobu · 2005-02-16

function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; var  WindowCaption:array[0..254] of Char;  classed:array[0..254] of Char;  buffer:array [0..255] of char; begin  GetWindowText(Hwnd,WindowCaption, 255);  GetClassName(Hwnd, classed, 255);  Form1.ListBox2.Items.Add('Handle:'+IntToStr(HWnd)+',Caption:'+StrPas(WindowCaption)+',Class:'+StrPas(classed));  Result:=TRUE; end; procedure TForm1.Button1Click(Sender: TObject); var  hCurrentWindow,hWnd1:HWnd;  szText:array[0..254]of char;  Wind : String; begin  hCurrentWindow:=GetWindow(Handle,GW_HWNDFIRST);  While hCurrentWindow&lt;&gt;0 Do  Begin    If GetWindowText(hCurrentWindow,@szText,255)&gt;0 then      if pos('Delphi 6',Strpas(@szText))&gt;0 then begin        EnumChildWindows( hCurrentWindow, @EnumerateChildWindows, 0 );        exit;      end;      hCurrentWindow:=GetWindow(hCurrentWindow,GW_HWNDNEXT);  end; end;

abencat · 2005-02-16

希望是 根据某个进程的ID 得到下面的窗体句柄 你这种方法不太适合

abencat · 2005-02-16

//得到进程的ID 是下面的方法 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           //GetAllF(Hand);           exit;         end;      found := Process32Next(Hand, lppe);    End; End;

jianguobu · 2005-02-16

吃完饭回来，再帮你改改看。

abencat · 2005-02-16

好的  谢谢

ysai · 2005-02-16

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1863299

abencat · 2005-02-16

to ysai 你的连接没意思

abencat · 2005-02-16

我是想根据得到的窗体句柄,然后在得到窗体的PID和原来的比较  看一样的就是 ,可是行不通

ysai · 2005-02-16

你不仔细看当然没意思,多说无益,自己看API:EnumThreadWindows

abencat · 2005-02-16

jianguobu的方法可以得到句柄,这个我也知道 ,问题是如何根据进程的ID得到本进程下的窗体句柄

爱元元的哥哥 · 2005-02-16

用enumwindow来枚举窗口，用GetWindowThreadProcessId来判断窗口所属得进程

abencat · 2005-02-16

不行呀 Unit Unit1; Interface Uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, TLHelp32; Type  TProcessInfo = Record    ExeFile: String;    ProcessID: DWORD;  End;  pProcessInfo = ^TProcessInfo; Type  TForm1 = Class(TForm)    Button1: TButton;    ListBox1: TListBox;    Button2: TButton;    Button3: TButton;    Button4: TButton;    Button5: TButton;    Button6: TButton;    Procedure Button1Click(Sender: TObject);    Procedure FormCreate(Sender: TObject);    Procedure FormDestroy(Sender: TObject);    Procedure Button2Click(Sender: TObject);    Procedure Button3Click(Sender: TObject);    Procedure Button4Click(Sender: TObject);    Procedure Button5Click(Sender: TObject);    Procedure Button6Click(Sender: TObject);  Private    function GetAllF(h: HWnd): boolean;    { Private declarations }  Public    { Public declarations }  End; Var  Form1: TForm1;  l: Tlist; ////返回的东东在"L"这个TList中。 Implementation Procedure TForm1.Button1Click(Sender: TObject); 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          // OpenProcess(           //EnumChildWindows(           GetAllF(Hand); //           EnumThreadWindows(OpenProcess(PROCESS_TERMINATE,false,lppe.th32ProcessID), @EnumProc, Integer(ListBox1.Items));           exit;         end;      found := Process32Next(Hand, lppe);    End; End; function TForm1.GetAllF(h:HWnd):boolean ; Var  hCurrentWindow: HWnd;  szText: Array[0..254] Of char; Begin  listbox1.clear;  hCurrentWindow :=GetWindow(Handle, GW_HWNDFIRST);  While hCurrentWindow &lt;&gt; 0 Do    Begin      If GetWindowText(hCurrentWindow, @szText, 255) &gt; 0 Then         begin           if GetWindowThreadProcessId(hCurrentWindow)=h then              ListBox1.Items.Add(Strpas(@szText));         end;      hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);    End; End;

abencat · 2005-02-16

还请高手指教

smokingroom · 2005-02-16

var  dwProcessID

WORD; 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; procedure TForm1.Button1Click(Sender: TObject); begin  dwProcessID:=GetProcessID('Delphi32.exe');  //利用CreateToolhelp32Snapshot得到进程ID  EnumWindows(@EnumWindowsProc,0);  //枚举窗口 end;

ysai · 2005-02-16

看看是不是你要的 http://www.delphibbs.com/keylife/images/u100686/Demo2.rar

abencat · 2005-02-16

to smokingroom    GetProcessID是???? to ysai   什么也看不出来,没有程序

jianguobu · 2005-02-16

看看以下能否满足你的要求 function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; var  WindowCaption:array[0..254] of Char;  classed:array[0..254] of Char;  buffer:array [0..255] of char; begin  GetWindowText(Hwnd,WindowCaption, 255);  GetClassName(Hwnd, classed, 255);  Form1.ListBox1.Items.Add('Handle:'+IntToStr(HWnd)+',Caption:'+StrPas(WindowCaption)+',Class:'+StrPas(classed));  Result:=TRUE; end; function EnumWindowsFunc(Handle: THandle; List: TStringList): boolean ; stdcall; var  Caption: array[0..256] of Char;  PID: DWORD;  dWnd: HWND; begin  if GetWindowText(Handle, Caption, SizeOf(Caption)-1) &lt;&gt; 0 then   begin    List.Add(Caption);    dWnd := GetWindowThreadProcessId(Handle, @PID);    if (ProcessHandle=Pid) then begin   // and (Caption='Delphi 6')  //    SetWindowText(Handle, PChar('About - ' + Caption));      EnumChildWindows(Handle, @EnumerateChildWindows, 0 );      exit;    end; //    SetWindowText(Handle, PChar('About - ' + Caption));   end;  Result :=True; end; function FindProcessName(ProcessName:String):THandle; var  lppe: tprocessentry32;  sshandle: thandle;  found: boolean; begin  result:=0;  sshandle := createtoolhelp32snapshot(TH32CS_SNAPALL, 0);  found := process32first(sshandle, lppe);  while found do  begin //    if ansiCompareText(ExtractFileName(lppe.szExefile),'EXPLORER.EXE') = 0 then    if ansiCompareText(ExtractFileName(lppe.szExefile),ProcessName) = 0 then    begin       result:=lppe.th32ProcessID;       break;    end;    found := process32next(sshandle, lppe); {检索下一个进程}  end;  CloseHandle(sshandle); end; procedure TForm1.Button2Click(Sender: TObject); begin  Memo1.Clear;  ProcessHandle := FindProcessName('delphi32.exe');  EnumWindows(@EnumWindowsFunc, LParam(Memo1.Lines)); end;

jianguobu · 2005-02-16

我想smokingroom的GetProcessID就是我的FindProcessName

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

abencat

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

smokingroom

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

Similar threads