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实例之一个较复杂的记事本的实现

Delphi 悬浮窗口 浮动窗口 迅雷下载浮动窗口的实现

Delphi xe 使用savestate保存firemonkey状态的示例

Delphi uac相关代码

Delphi-获取毫秒-计算代码运行的时间

Delphi 递归获取窗口所有子窗口所以句柄

Delphi system 提供的编译期函数

Delphi实现文件防删除

Delphi的format使用总结

tidtcpclient控件中文指南

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

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