Connaitre le texte/Caption d'un objet sur lequel pointe la souris

function GetCaptionAtPoint(CrPos: TPoint): string;
var
textlength: integer;
Text: PChar;
handle: HWND;
begin
Result := 'Empty';
handle := WindowFromPoint(CrPos);
if handle = 0 then exit;
textlength := SendMessage(handle, WM_GETTEXTLENGTH, 0, 0);
if textlength < > 0 then
begin
getmem(Text, textlength + 1);
SendMessage(handle, WM_GETTEXT, textlength + 1, integer(Text));
Result := Text;
freemem(Text);
end;
end;