В отговор на:

---

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, Shdocvw, MSHTML, StdCtrls, DB, DBTables, OleCtrls, Mask, DBCtrls, Grids, DBGrids,
ExtCtrls, ADODB, Buttons, ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
Table1: TTable;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM: wParam; out pObject): HRESULT;
stdcall;


var
Form1: TForm1;

implementation

{$R *.dfm}

function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: HWND;
lRes: Cardinal;
MSG: Integer;
pDoc: IHTMLDocument2;
ObjectFromLresult: TObjectFromLresult;
begin
hInst := LoadLibrary('Oleacc.dll');
@ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
if @ObjectFromLresult <> nil then begin
try
MSG := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
if Result = S_OK then
(pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE);
finally
FreeLibrary(hInst);
end;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: HWND;
WndChild: HWND;
x: Olevariant;
vaClsID, vaEnabled, vaDummy: Olevariant;
BarIE, IE: iwebbrowser2;
begin
Wnd := FindWindow('IEFrame', nil);
if Wnd = 0 then
begin
showmessage('Start Indra4.exe first!');
exit;
end;

WndChild := FindWindowEX(Wnd, 0, 'Shell DocObject View', nil);
if WndChild <> 0 then begin
WndChild := FindWindowEX(WndChild, 0, 'Internet Explorer_Server', nil);
if WndChild <> 0 then
begin
GetIEFromHWnd(WndChild, IE);
vaCLSID := '{30D02401-6A81-11D0-8274-00C04FD5AE38}';
vaEnabled := True;
vaDummy := 0;
WndChild := FindWindowEX(Wnd, 0, 'Basebar', nil);
if WndChild <> 0 then begin
WndChild := FindWindowEX(WndChild, 0, 'RebarWindow32', nil);
if WndChild <> 0 then begin
WndChild := FindWindowEX(WndChild, 0, 'OCHost', nil);
if WndChild <> 0 then begin
WndChild := FindWindowEX(WndChild, 0, 'Shell Embedding', nil);
if WndChild <> 0 then begin
WndChild := FindWindowEX(WndChild, 0, 'Shell DocObject View', nil);
if WndChild <> 0 then begin
WndChild := FindWindowEX(WndChild, 0, 'Internet Explorer_Server', nil);
if WndChild <> 0 then
begin
GetIEFromHWnd(WndChild, BarIE);
end;
end;
end;
end;
end;
end;
end;
end;
end;




end.

---