delphi 查找对话框

调用查找对话框

关键点

HTMLID_FIND = 1; //查找对话框

HTMLID_VIEWSOURCE= 2; //用记事本查看源代码

HTMLID_OPTIONS =3; //Internet选项

实现过程

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;
nCmdId:Cardinal);overload;

 

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, nCmdId, 0, vaIn, vaOut) ;

       
finally

         
CmdTarget._Release;

       
end;

    except

    end;

  Dispose(PtrGUID) ;

end;

图

备注

相关链接

 

来自为知笔记(Wiz)