Aus einem Beispiel rauskopiert, zumindest schon mal die Klasse:
Delphi-Quellcode:
var
hWnd: THandle;
aName:
array [0..255]
of Char;
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint);
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.Timer1Timer(Sender: TObject);
var
rPos: TPoint;
begin
if Boolean(GetCursorPos(rPos))
then ShowHwndAndClassName(rPos);
end;