Главная страница
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.04 c
11-1131108788
MTsv DN
2005-11-04 15:53
2006.08.06
Transparent для Item a в ListView...


15-1152692547
DevilDevil
2006-07-12 12:22
2006.08.06
Быстрая компиляция Builder-a


2-1152862577
NaLom
2006-07-14 11:36
2006.08.06
listview глюк


2-1153123382
ksa2002
2006-07-17 12:03
2006.08.06
Редактирование DBGrid


3-1148922065
alpha5
2006-05-29 21:01
2006.08.06
Странная ошибка