像用webbrowser一样 使用 firefox
一个delphi写的例子 , 像用webbrowser一样 使用 firefox:
Using FireFox instead of TWebBrowser in Delphi applications
http://www.paranoia.clara.net/articles/taming_the_lizard_with_delphi.html
摘抄
unit MainForm;
{Main Form unit for Gecko Browser, a demo of embedding Gecko in Delphi 5+ apps}
uses
MOZILLACONTROLLib_TLB;
mzGecko: TMozillaBrowser
mzGecko.Navigate(WideString(HOME_ADDRESS)); {home page}
mzGecko.Navigate(WideString(START_ADDRESS)); {custom start page}
PageFilename := mzGecko.LocationName + '.html';
mzGecko.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER {OLECMDEXECOPT_DODEFAULT}, PageFilename);
mzGecko.GoBack;
mzGecko.GoForward