以下代码可以不用WebBrowser->ExecWB() ;但也无法保存图片. :-(,紧供参考.
uses ActiveX, MSHTML_TLB, ComCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:/SavedFile.html'), System.True);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.delphibbs.com/delphibbs/dispq.asp?lid=1229084');
end;
