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;

 

相关阅读 >>

Delphi 关闭uac 单元

Delphi分割字符串的函数--extractstrings

Delphi的tservice的windows�入桌面切�q

Delphi cxdbtreelist1判断当父节点含有子节点时 不能删除此父节点

Delphi 中判断windows系统是否是64位系统

Delphi 操作 pdf -- 使用 acrobat sdk 初探

Delphi fdquery1查询，有无返回集

Delphi 字符串常识

Delphi 移动windows开始按钮到任务栏中的任何位置

Delphi idhttp post 支持 gzip 解压缩

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser 查找对话框