nk, автокликер? Могу кинуть исходники, я как то делал.
Хендл можно получить так:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
CrPos:TPoint;
hWnd: THandle;
aName: array [0..255] of Char;
begin
CrPos.X:=X;
CrPos.Y:=Y;
hWnd:=WindowFromPoint(CrPos);
if Boolean(GetClassName(hWnd, aName, 256)) then
begin
Form1.Caption:=string(aName)
end else
Form1.Caption:="Нет";
end;
Ссылка на пост
27 янв 2011 в 18:02
Хендл можно получить так:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
CrPos:TPoint;
hWnd: THandle;
aName: array [0..255] of Char;
begin
CrPos.X:=X;
CrPos.Y:=Y;
hWnd:=WindowFromPoint(CrPos);
if Boolean(GetClassName(hWnd, aName, 256)) then
begin
Form1.Caption:=string(aName)
end else
Form1.Caption:="Нет";
end;