كيف أحصل على أى مقبض لنافذة

[SMP3]

تفضل :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint ;
hWin:THandle;
begin
GetCursorPos(p);
hWin:=WindowFromPoint(p);
Caption:=IntToHex(hWin,8);
end;