得到光标所点的窗口句柄?难呀!获取活动窗口句柄,(100分)

  • 主题发起人 主题发起人 delphi5988
  • 开始时间 开始时间
D

delphi5988

Unregistered / Unconfirmed
GUEST, unregistred user!
动态获取活动窗口句柄!
得到光标所点的窗口句柄?

难呀!
请不要用钩子!也不要用time控件
 
API GetActiveWindow
 
这个是用来判断是否为活动form但是需要mouse的位置,这个又需要time控件,可以用time控件,但是,当mouse离开时,怎么判断mouse离开呢?
 
在time下用枚举窗口
 
上面的朋友,你说是枚举一下,然后查找那一个是活动的吗,这样可能太费资源了!
 
请不要用钩子!也不要用time控件


等待高人解答…………………………??????
 
WindowFromPoint。不用钩子也不定时 你去找耶稣干吧。
 
to :地质灾害
逗!!
 
用定时可以,但不要用钩子!
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
ThreadID: Cardinal;
FocusWindow,FocusControl: HWND;
begin
FocusWindow:= GetForegroundWindow;
ThreadID:= GetWindowThreadProcessId(FocusWindow,nil);
AttachThreadInput(ThreadID,GetCurrentThreadId,True);
FocusControl:= GetFocus;
AttachThreadInput(ThreadID,GetCurrentThreadId,False);
Edit1.Text:= Format('$%8X',[FocusControl]);
end
 
就是,钩不给用,TIME又不给用。。晕倒一片哦
 
to 地质灾害
“WindowFromPoint。不用钩子也不定时 你去找耶稣干吧。”
开个线程循环调用GetActiveWindow,GetCursorPos,WindowFromPoint。
我算不算是耶稣。[:D]
 
哎!
不得渎圣!
 
WindowFromPoint
 
后退
顶部