Delphi WebBrowser用记事本查看源代码

本文整理自网络，侵删。

 
WebBrowser用记事本查看源代码

uses ActiveX;
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
 
  //HTMLID_FIND = 1;      //查找对话框
  //HTMLID_VIEWSOURCE= 2; //查看源代码
  //HTMLID_OPTIONS =3;    //Internet选项

procedure WB_ViewSource(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, 2, 0, vaIn, vaOut) ;
        finally
          CmdTarget._Release;
        end;
    except
    end;
  Dispose(PtrGUID) ;
end;
 

相关阅读 >>

Delphi 获取ie网址收藏夹

Delphi 已经最小化的窗体如何让它自己还原？

Delphi输入汉字自动产生拼音简码

Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）

Delphi 取整算法集合

Delphi发送邮件源代码

Delphi打印timage图片

Delphii控件的安装和卸载方法

Delphi hex --> string

Delphi瞬间消除无用托盘图标(刷新托盘)

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

转载请注明出处：木庄网络博客 » Delphi WebBrowser用记事本查看源代码