ClassName / Caption von Objekt erhalten

[Popov]

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;