إستخراج المقبض Handle لأيي شيء يتم النقر عليه بالماوس

[MasteranyOne]

السلام عليكم ورحمة الله تعالى وبركاته

السؤال : كيف يمكنني إيجاد المقبض Handle لأيي شيء انقر عليه بالفأرة mouse ؟

المحاولة الغير ناجحة : 

كود :

procedure TForm1.FormClick(Sender: TObject);   Var   pt : Tpoint;   HH: hWnd; begin   GetCursorPos(pt);   HH := windowfrompoint(Pt) ;   edit1.Text:=inttostr(HH); end;

في هذه المحاول تعمل فقط في نفس الفورم , أريدها تعمل في أيي فورم موجودة على سطح المكتب حتى وإن كانت لبرامج أخرا

بارك الله فيكم وجزاكم الله خيرا

[MasteranyOne]

وعليكم السلام  ورحمة الله تعالى وبركاته

يمكنك إستعمال الكود التالي (يمكن إستعمال Thread مكان Timer) : 

كود :

procedure TForm1.Timer1Timer(Sender: TObject); var   pt : TPoint;   HH : hWnd; begin   GetCursorPos(pt);   edit1.Text := inttostr(pt.x)+' : '+inttostr(pt.y);   HH := windowfrompoint(Pt) ;   edit2.Text := inttostr(HH); end;

بالتوفيق ,,