Главная страница
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.047 c
15-1152452599
AlexanderMS
2006-07-09 17:43
2006.08.06
"Мигающее" модальное окно.


2-1153067292
kaif
2006-07-16 20:28
2006.08.06
Хочу покаяться за то, что наговорил про генераторы в триггерах


15-1152603369
Ketmar
2006-07-11 11:36
2006.08.06
кто знает, где спулер принтера хранит свои задания?


2-1153316381
DesperadO666
2006-07-19 17:39
2006.08.06
LookUp поля в DBGrid


2-1153134172
STX
2006-07-17 15:02
2006.08.06
Блокирование строки таблицы на время редактирования