Слово под курсором

[Vikenty]

Можно ли в дельфи получить слово под курсором?

[raxp]

можно... пользуйте DirectUI

// перехват слова под курсором-
 SetTimer(Handle, 1, 100, @RecalcText);

// слово под курсором-
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;
  try
   if Succeeded(AccessibleObjectFromPoint(P, A, V)) then
    //sp.speeks(A.accName[V])
    Caption := A.accName[V] + ' = ' + A.accValue[V]
   else ;
  except end
 end
end;

...
и при уничтожении формы
...
KillTimer(Handle, 1)

...прилагаю тестовый проект для работы с OleAcc.dll

SpeeshAPI + DirectUI + DirectSS
-------------------------------

Тестовый пример работы с библиотекой TDirectSS + буфера обмена + слова под курсором
к статье "SAPI. Речь из буфера обмена" http://raxp.radioliga.com/cnt/s.php?p=sap.djvu

Возможности:
• проговаривание текста под курсором
• проговаривание текста из буфера обмена
• закрыть утилиту средней кнопкой мыши

при создании формы...

[Vikenty]

Из Word и блокнот не получает слова...

[igh0st]

Сообщение от Vikenty

Из Word и блокнот не получает слова...

Получит только от тех приложений, которые поддерживают эту технологию, например Internet Explorer версии 6 и выше.

[yulia]

почему может выдавать ошибку Undeclared identifier: IAccessible? oleacc подключен...