窗口类名:Delphi获取当前鼠标位置的类名和句柄来源: 发布时间:星期五, 2008年12月26日 浏览:16次 评论:0
这有点像金山词霸屏幕取词要获取当前鼠标位置类名和句柄只须通过 WindowFromPo
和GetClassName 这两个Win32就可以完成任务不过如果要获取当前鼠标位置可能要复杂得多 下面是很简单范例大家应该都可以轻易弄清楚 type TForm1 = (TForm) NameLB: TLabel; ClassLB: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure GetMousePosHwndAndClassName(Sender : TPo); public end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); var rPos: TPo; begin boolean(GetCursorPos(rPos)) then GetMousePosHwndAndClassName(rPos); end; procedure TForm1.GetMousePosHwndAndClassName(Sender: TPo); var hWnd: THandle; aName: .gif' /> [0..255] of char; begin hWnd := WindowFromPo(Sender); NameLB.Caption := ’Handle : ’ + IntToStr(hWnd); boolean(GetClassName(hWnd, aName, 256)) then ClassLB.Caption := ’ClassName : ’ + (aName) ClassLB.Caption := ’ClassName : not found’; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.FormStyle := fsStayOnTop; Timer1.Interval := 50; end; 0
相关文章读者评论发表评论 |
|