我用CreateProcedure调用了另外一个delphi程序,能够得到该程序的窗口handle??(200分)

DingDang · 1999-12-13

我的主程序由于要调用((多个))子EXE程序,我想通过createprocess的process handle维护一个当前活动应用列表,并且通过主程序激活已经打开但是没有FOCUS的程序,苦于不知道如何得到窗口句柄,本人又不想通过查询所有窗口的办法得到!   望大虾指教!     hProcess ---> hWnd

Teikini · 1999-12-13

o*o · 1999-12-13

没有FOCUS的程序是什么意思？

DingDang · 1999-12-13

对不起,表达不够准确 并且没有加回车 重述如下: 我的主程序由于要调用((多个))子EXE程序,我想通过createprocess的 processhandle 或者 ThreadHandle维护一个当前活动应用列表, 并且想通过主程序激活已经打开但是被切换在后台的程序,苦于不知道如何 得到窗口句柄,本人又不想通过查询所有窗口的办法得到! 望大虾指教!     hProcess ---> hWnd

www · 1999-12-13

>>

o*o · 1999-12-13

子EXE程序是你自己编的吗？

DingDang · 1999-12-13

是的,但是很多 > 100

cAkk · 1999-12-13

既然是自己的程序,给你想一个笨办法: 每个子程序(*.exe)执行后,把自己的processhandle,windowhandle都发给 主程序,发送方法可以是sendmessage,wm_copydata等. 或者你干脆不要保存process列表,而是保存windowhandle列表,得到handle 的方法是: createprocess之后,用findwindow(classname)--你自己的程序 classname当然应该知道. 这也是一个笨办法,........  :-(

ZRY · 1999-12-13

o*o · 1999-12-14

ProcessHandle是个伪句柄，应该用ProcessID维护列表。 小EXE启动后，向主调窗体wnd发消息。 SendMessage(wnd,WM_USER+1,Handle,GetCurrentProcessID); wnd就可得到ProcessID与HWND的一一对应表。 这个ProcessID就是CreateProcess的TProcessInfomation中的dwProcessId。

DingDang · 1999-12-14

大家的想法给我很多启示,我无意中发现一条消息 WM_ACTIVEAPP 我想是否可以通过 ThreadID 直接发消息,但是不会用.

Liu JZX · 1999-12-14

DingDang下面的代码或许对你有所帮助 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   EnumThreadWndProc=function(hw:HWND;lP:LPARAM):boolean; type   TForm1 = class(TForm)     ListBox1: TListBox;     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure ListBox1DblClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   function Enum(hw:HWND;lP:LPARAM):boolean;stdcall; var   Form1: TForm1;   st:TStartUpInfo;   pp:array[1..3] of TProcessInformation;   ppp:Thandle;   pppp:TProcessInformation; implementation {$R *.DFM} function Enum(hw:HWND;lP:LPARAM):boolean; var   Buffer:Array[0..255] of Char; begin   GetWindowText(hw,buffer,256);   TListBox(lp).items.addobject(buffer,Tobject(hw));   Result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var   proc:EnumThreadWndProc;   i:integer; begin   proc:=@Enum; for i:=1 to 3 do   EnumThreadWindows(pp.dwThreadId,@proc,lparam(listbox1)); end; procedure TForm1.Button2Click(Sender: TObject); begin FillChar(st,sizeof(st),#0); with st do begin   cb:=sizeof(st);   dwFlags:=StartF_UsesTDHandles or STARTF_USESHOWWINDOW;   lptitle:=nil;   wShowWindow:=SW_HIDE; end; CreateProcess(PChar('c:/program files/microsoft office/office/winword.exe'),       nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp[1]); CreateProcess(PChar('c:/program files/microsoft office/office/Excel.exe'),       nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp[2]); CreateProcess(PChar('c:/program files/microsoft office/office/MSACCESS.exe'),       nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp[3]); //  ppp:=OpenProcess(PROCESS_ALL_ACCESS, FALSE,pp.dwProcessId ); //  TerminateProcess(ppp,0); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin   ppp:=Thandle(Listbox1.Items.Objects[Listbox1.ItemIndex]);   showwindow(ppp,sw_show); end; end.

cAkk · 1999-12-14

Liu JZX: 人家说了"本人又不想通过查询所有窗口的办法得到",          如果可以用枚举就简单了.

DingDang · 1999-12-14

看来通过 findwindow 或 Enum 的方法还是可行 接下来又出现一个问题:   我的子程序中有 SHOWMODAL 的几重窗口,当我用 SETFOREGROUNDWINDOW 时,不能确定哪个窗口句柄才是 该程序最前面的窗口, 有时会把SHOWMODAL的父窗口 显示出来,但是又点不动.

Liu JZX · 1999-12-14

DingDang将回调过程函数改为下面形式在试一试，如何 function Enum(hw:HWND;lP:LPARAM):boolean; var   Buffer:Array[0..255] of Char;   hh:HWND; begin   GetWindowText(hw,buffer,256);   if GetTopWindow(hw)<>0 then   begin   tt:=String(buffer);   TListBox(lp).items.addobject(buffer,Tobject(hw));   end;   Result:=true; end;

Liu JZX · 1999-12-14

上面代码忘了删掉tt:=String(buffer);

Liu JZX · 1999-12-14

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls; type   EnumThreadWndProc=function(hw:HWND;lP:LPARAM):boolean; type   TForm1 = class(TForm)     ListBox1: TListBox;     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure ListBox1DblClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   function Enum(hw:HWND;lP:LPARAM):boolean;stdcall; var   Form1: TForm1;   st:TStartUpInfo;   pp:array[1..3] of TProcessInformation;   ppp:Thandle; implementation {$R *.DFM} function Enum(hw:HWND;lP:LPARAM):boolean; var   Buffer:Array[0..255] of Char; begin   if GetTopWindow(hw)<>0 then   begin     GetWindowText(hw,buffer,256);     TListBox(lp).items.addobject(buffer,Tobject(hw));   end;   Result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var   proc:EnumThreadWndProc;   i:integer; begin   proc:=@Enum; for i:=1 to 2 do   EnumThreadWindows(pp.dwThreadId,@proc,lparam(listbox1)); end; procedure TForm1.Button2Click(Sender: TObject); begin FillChar(st,sizeof(st),#0); with st do begin   cb:=sizeof(st);   dwFlags:=StartF_UsesTDHandles or STARTF_USESHOWWINDOW;   lptitle:=nil;   wShowWindow:=SW_HIDE; end; CreateProcess(PChar('c:/program files/microsoft office/office/winword.exe'),       nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp[1]); CreateProcess(PChar('c:/program files/microsoft office/office/Excel.exe'),       nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp[2]); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin   ppp:=Thandle(Listbox1.Items.Objects[Listbox1.ItemIndex]);   if IsWindowVisible(ppp) then     BringWindowToTop(ppp)   else     showwindow(ppp,sw_show); end; end.

DingDang · 1999-12-14

Liu JZX:   GetTopWindow能够过滤去很多不用的窗口,但是还是存在一个问题! 例如,打开 word 后,再打开 FILEOPEN 对话框,于是会出现找到两个 窗口,此时,如果还是双击 word 连接的话,还是只有word窗口被激活, 而不是最前面的open对话框.word 还好,它的灰化的open窗口还在前面. 更惨的是我的程序,一个窗口showmodal另外一个窗口后,后面的窗口 被show到前面了,但是不能响应事件,而前面的窗口不见了.

Liu JZX · 1999-12-14

DingDang：   我不太明白你的要求 此时双击 Open 连接 ,open窗口就会被激活

Liu JZX · 1999-12-14

将下面代码写入，双击 Open 连接 ,open窗口就会被激活，在双击 word 连接的话 open窗口就会被激活,我也不知道为什么，试一试 function Enum(hw:HWND;lP:LPARAM):boolean; var   Buffer:Array[0..255] of Char;   tt:Thandle;   tc:Thandle; begin   tt:=GetTopWindow(hw);   tc:=GetWindow(tt,GW_Child);   if tc<>0 then   begin     GetWindowText(hw,buffer,256);     TListBox(lp).items.addobject(buffer,Tobject(tc));   end;   Result:=true; end;

我用CreateProcedure调用了另外一个delphi程序,能够得到该程序的窗口handle??(200分)

DingDang

Unregistered / Unconfirmed

Teikini

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

DingDang

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

DingDang

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

ZRY

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

DingDang

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DingDang

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

DingDang

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

Similar threads