Получить Handle и имя класса окна под мышкой

Советы » Мышка и Курсор » Получить Handle и имя класса окна под мышкой

type 
  TForm1 = class
(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Timer1: TTimer; 
    procedure
 Timer1Timer(Sender: TObject); 
    procedure
 FormCreate(Sender: TObject); 
  private
 
    procedure
 ShowHwndAndClassName(CrPos: TPoint); 
  public
 

end
; 

var
 
  Form1: TForm1; 

implementation
 

{$R *.DFM} 

procedure
 TForm1.Timer1Timer(Sender: TObject); 
var
 
  rPos: TPoint; 
begin
 
  if
 Boolean(GetCursorPos(rPos)) then
 ShowHwndAndClassName(rPos); 
end
; 

procedure
 TForm1.ShowHwndAndClassName(CrPos: TPoint); 
var
 
  hWnd: THandle; 
  aName: array
 [0..255] of
 Char; 
begin
 
  hWnd := WindowFromPoint(CrPos); 
  Label1.Caption := 'Handle :  ' + IntToStr(hWnd); 

  if
 Boolean(GetClassName(hWnd, aName, 256)) then
 
    Label2.Caption := 'ClassName :  ' + string
(aName) 
  else
 
    Label2.Caption := 'ClassName :  not found'; 
end
; 

procedure
 TForm1.FormCreate(Sender: TObject); 
begin
 
  Form1.FormStyle := fsStayOnTop; 
  Timer1.Interval := 50; 
end
;

Получить Handle и имя класса окна под мышкой

Другое по теме:

Категории

Статьи

Советы