Получить 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com