delphi WebBrowser 查找对话框

{$R *.dfm}

uses ActiveX;

const

CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';

// HTMLID_FIND = 1; //查找对话框

// HTMLID_VIEWSOURCE= 2; //查看源代码

// HTMLID_OPTIONS =3; //Internet选项

procedure WB_FindDialog(WebBrowser: TWebbrowser);

var

CmdTarget : IOleCommandTarget;

vaIn, vaOut: OleVariant;

PtrGUID: PGUID;

begin

New(PtrGUID) ;

PtrGUID^ := CGID_WebBrowser;

if WebBrowser.Document <> nil then

try

WebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget) ;

if CmdTarget <> nil then

try

CmdTarget.Exec(PtrGUID, 1, 0, vaIn, vaOut) ;

finally

CmdTarget._Release;

end;

except

end;

Dispose(PtrGUID) ;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

WB_FindDialog(WebBrowser1);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate('http://www.1231818.com/');

end;

推荐分享