1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| procedure TForm1.Timer1Timer(Sender: TObject);
var
p:Tpoint;
h1:HWnd;
t1:Array[0..255] of Char;
t2:Array[0..255] of Char;
g1:tagwndclassA;
begin
windows.GetCursorPos(p);
Label1.Caption:=IntToStr(p.x);
Label2.Caption:=IntToStr(p.y);
h1:=Windows.WindowFromPoint(p);
Windows.GetClassName(h1,t1,255);
windows.GetWindowText(h1,t2,255);
windows.GetClassInfo(h1,t1,g1);
If T1='Button' then
begin
Label1.Caption:='Et un Bouton'+ ' '+t2;
end
else
Label1.Caption:=' ' ;
end; |
Partager