怎样取得当前窗口的前一个活动窗口的句柄？(50分)

helloymz · 2002-08-21

怎样取得当前窗口的前一个活动窗口？ 例如我刚才用记事本输入，现在切换到我写的那个程序的窗体上面。 当前窗体是我自己的那个窗体。前一个活动窗体应该是记事本。 请问应该怎么取到他的句柄？

子弹 · 2002-08-21

用一个全局变量如 hand := customForm.Handle 把前一个活动窗体的句柄记录下来

yxjdelphi · 2002-08-22

对不起，不熟，不过我认为要么不可能，要么很简单，这是platform的事，如果有这样的api就好： getprevioushandle(currenthwd),你查查win32api吧

淡淡的笑 · 2002-08-22

个人感觉可能用  Enumwindows(@EnumWindowsProc,0); 然后取你的进程的下一个hwnd就是了. 没试过,,不知道可不可行.

阿高 · 2002-08-22

sorry，不会。

helloymz · 2002-08-22

我自己写了一个响应WM_ACTIVATE消息的代码，如下： 声明：procedure wmsetfocus(var Message:TMessage) ;message WM_ACTIVATE; 定义： procedure tform1.WMsetfocus(var Message:TMessage) ; VAR   hwndcurrent:integer; begin      hwndcurrent := HWND(message.lParam);      GetWindowText(hwndcurrent,pstr,255); end; 如果两个窗体是在同一个程序里面（比如form1,form2），那么从form2切换到form1上面的时候 是可以取到上一个活动窗体的句柄。但是，如果上一个窗体是别的一个程序， 那么hwndcurrent返回的始终是0。这是为什么阿？ 不知道这样写对不对。

xeen · 2002-08-22

使用API函数 GetNextWindow(当前窗口.handle,GW_HWNDPREV)

淡淡的笑 · 2002-08-22

呵呵,最后实在不行,做个全局的钩子,,记录最近3个窗口的hwnd

) 这个办法很笨,不建议采用

helloymz · 2002-08-22

to:xeen GetNextWindow(当前窗口.handle,GW_HWNDPREV) 我试过了阿，得到的不是前一个活动窗口的句柄阿？

helloymz · 2002-08-22

to 淡淡的笑 如果最后没有办法也只能这样了：）但是我觉得用windows的消息应该能够搞定。。

rustle · 2002-08-22

同意xeen 如果不行就同意淡淡的笑[

]

xianjun · 2002-08-22

GetNextWindow(Handle, GW_HWNDPREV);取得的就是前一个Window，只不过这个Window 往往是输入法的窗口（Default IME），因此你可能要继续调用往前找直到你要的。 var   H: THandle;   S: string; begin   H := GetNextWindow(Handle, GW_HWNDPREV);   S := '';   if IsWindow(H) then   begin     SetLength(S, MAX_PATH);     SetLength(S, GetWindowText(H, PChar(S), MAX_PATH));   end;   Edit1.Text := S;

helloymz · 2002-08-22

to :xianjun 你说的对，我总是得到default ime 再往前得到的句柄就都是0了。 这位大哥，那我要怎样才能找到我想要的窗体？

热血 · 2002-08-22

最好的办法就是记录窗口 没有相关的api GetNextWindow,GetParent等api都是窗口创建时确定的 而你要的是切换时的窗口

helloymz · 2002-08-22

to 热血兄    记录窗口？是不是用hook？

beta · 2002-08-22

sorry, 不是很清楚。

yzhshi · 2002-08-22

似乎只能那个是GetNextWindow了。确实Windows有他的顺序，你按Alt+Tab就可以看到。 但是我们获取的似乎只有GetNextWindows这个API了，获取顶层可见的窗口。应该可以的。

helloymz · 2002-08-22

如果windows有他的顺序的话，那我们用getnextwindow怎么样也得不到上一个活动的窗体啊。 因为他是不固定的。 能不能利用WM_ACTIVATE这个消息啊？

影 子 · 2002-08-22

//不知道对不对的。改了xianjun的程序 var   H: THandle;   S: string; begin   S := 'Default IME';   H := GetNextWindow(Handle, GW_HWNDNEXT);   while (S = 'Default IME') do   begin     H := GetNextWindow(H, GW_HWNDNEXT);     if IsWindow(H) then     begin       SetLength(S, MAX_PATH);       SetLength(S, GetWindowText(H, PChar(S), MAX_PATH));       Edit1.Text := S+' --- '+IntToHex(H,0);     end;   end; end;

jrq · 2002-08-23

sorry。 提前。

怎样取得当前窗口的前一个活动窗口的句柄？(50分)

helloymz

Unregistered / Unconfirmed

子弹

Unregistered / Unconfirmed

yxjdelphi

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

阿高

Unregistered / Unconfirmed

helloymz

Unregistered / Unconfirmed

xeen

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

helloymz

Unregistered / Unconfirmed

helloymz

Unregistered / Unconfirmed

rustle

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

helloymz

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

helloymz

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

helloymz

Unregistered / Unconfirmed

影 子

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

Similar threads

影子