第一题:使用网页对象枚举出网页中的ActiveX的实例,然后就。。。(部分代码看下题)
第二题:这有部分代码,你看看。
uses MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var spIE:IOleContainer;
spDoc:IHTMLDocument2;
spWnd:IHTMLWindow2;
begin
spIE:=nil;spDoc:=nil;spWnd:=nil;spHis:=nil;
ActiveFormControl.ClientSite.GetContainer(spIE);
if not Assigned(spIE) then Exit;
spIE.QueryInterface(IID_IHTMLDocument2,spDoc);
if not Assigned(spDoc) then Exit;
spWnd:=spDoc.parentWindow;
if not Assigned(spWnd) then Exit;
spWnd.navigate('Test.html');
end;