Текст из под курсора в любом месте

[Ring0Sn]

Наткнулся на одном форуме на интересный исходник, обсуждалось что то, вроде, как программа "QDictionary" получает текст из под курсора (она это делает практически из любого места, буть то текст в окне браузера)...

Возможно, комуто это ни о чем новом неговорит, но всеже кому то думаю покажеться интересно, тк вопросы на форуме "Текст из под курсора..." поднимаються

...
uses
Accessibility_TLB; // Импортировать из oleacc.dll

function AccessibleObjectFromPoint(Pt: TPoint; var Acc: IAccessible; var Child: Variant): HRESULT;
stdcall; external 'OleAcc.dll' name 'AccessibleObjectFromPoint';

var
OldPoint: TPoint;

procedure RecalcText(Wnd: HWND; uMsg, idEvent: UINT; dwTime: DWORD); stdcall;
var
P: TPoint;
A: IAccessible;
V: Variant;
begin
if GetCursorPos(P) and ((P.X <> OldPoint.X) or (P.Y <> OldPoint.Y)) then
begin
  OldPoint := P;
  if Succeeded(AccessibleObjectFromPoint(P, A, V)) then
    Form1.Caption := A.accName[V]
  else
    Form1.Caption := ''
end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetTimer(Handle, 1, 300, @RecalcText)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  KillTimer(Handle, 1)
end;

end.

зы если кто несможет импортировать Accessibility_TLB, то вот полный проект