Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.06;
Скачать: CL | DM;

Вниз

Работал ли кто с Active Accessibility?   Найти похожие ветки 

 
Gero ©   (2006-07-06 15:14) [0]

Возникла проблема. Собственно, нужно получить IHTMLWindow2 окна Internet Explorer, зная Handle окна.
Написал такой код, используя Active Accessibility:


function GetIWindowFromHandle(Wnd: THandle): IHTMLWindow2;
var
 Acc: IAccessible;
 SProv: IServiceProvider;
 Disp: IDispatch;
 Window: IHTMLWindow2;
 Hr: HRESULT;
begin
 Result := nil;
 if Assigned(AccessibleObjectFromWindow) then
   begin
     Hr := AccessibleObjectFromWindow(Wnd, OBJID_WINDOW, @IID_IAccessible, Disp);
     if Succeeded(Hr) then
       begin
         Acc := Disp as IAccessible;
         Hr := Acc.QueryInterface(IID_IServiceProvider, SProv);
         if Succeeded(Hr) then
           begin
             Hr := SProv.QueryService(IHTMLWindow2, IHTMLWindow2, Window);
             // Window почему-то равен nil
           end;
       end;
   end;
end;


Собственно все проходит нормально, я получаю ссылку на ServiceProvider, а затем по идее, должен получить ссылку на IHTMLWindow2, путем вызова QueryService, но этого почему-то не происходит.
Если кто сталкивался с подобным, надеюсь на помощь.


 
Ломброзо ©   (2006-07-06 15:37) [1]

Оно?
http://support.microsoft.com/kb/q249232/


 
Ломброзо ©   (2006-07-06 15:40) [2]

Там же и второй способ, попроще

http://support.microsoft.com/kb/176792/EN-US/

Указатель на окно, разумеется, нужно получить от документа


 
Gero ©   (2006-07-07 00:52) [3]

Спасибо, пригодилось.



Страницы: 1 вся ветка

Текущий архив: 2006.08.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
2-1153212810
Pashka.cool
2006-07-18 12:53
2006.08.06
Как по дескриптору окна или ещё чему-нить получить сам экземпляр


15-1152129774
Имя не скажу
2006-07-06 00:02
2006.08.06
Проблема больших целых чисел


4-1145147097
Volf_555
2006-04-16 04:24
2006.08.06
Как изменять значок программы в трэи по необходимости?!


15-1151944074
sdf13
2006-07-03 20:27
2006.08.06
можно ли писать на Delphi под Pocket PC?


1-1150925128
TechnoDreamer
2006-06-22 01:25
2006.08.06
Как определить в ANSI файл или в Unicode