Получить текст под курсором

[wolfaleks]

Ниже приведеный код позволяет получить информацию об окнах
под курсором, а как получить текст в окне ? ( Это web страница,загруженая в WebBrowser)
HELP !!!
procedure TMainForm.ShowHwndAndClassName(CrPos: TPoint);
var
hWnd,hWnd1: THandle;
aName: array [0..255] of Char;
WName:array [0..255] of Char;
begin
hWnd := WindowFromPoint(CrPos);
hWnd1:= ChildWindowFromPoint(hWnd,CrPos);
Label1.Caption := 'Handle : ' + IntToStr(hWnd);
Label4.Caption := 'Child :' + IntToStr(hWnd1);
GetWindowText(hWnd,WName,50);
Label3.Caption := 'WinText : ' +string(WName);
if Boolean(GetClassName(hWnd, aName, 256)) then
Label2.Caption := 'ClassName : ' + string(aName)
else
Label2.Caption := 'ClassName : not found';
end;

[Savant]

wolfaleksкак получить текст в окне ?
А что у тебя появляется в Label3 ?

[wolfaleks]

в Label3 я ставлю для пробы разные параметры

В данном случае сюда вывожу Текст окна т.е название.

[uStick]

wolfaleks

хм... дык вроде GetWindowText и вернет тебе текст из окна, т.е. не его название, а содержимое... только вот... вряд ли с WebBrowser-ом это пройдет...

Кстати, если используем бразуер типа IE =) можно порыться в msdn... тама куча полезной информации... так что ждем подробного описания проблемы...

[wolfaleks]

GetWindowText возвращает текст названия окна (код я привел выше)

Я так понимаю проблема гораздо глубже
В окне WebBrowser при наведении на любую точку ,Handle окна верхнего
уровня и Child одинаковые и не меняются по всему полю,
а мне надо отловить на web странице слово под мышиным курсором...