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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/11/2001
VisualisationVu 1229 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur