怎么利用代码调用webbrowser控件中右键菜单的查看源代码功能

Question

如题

Answer 1

const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  PtrGUID^ := CGID_WebBrowser;
  with WebBrowser1 do
    if Document <> nil then
      try
        Document.QueryInterface(IOleCommandTarget, CmdTarget);
        if CmdTarget <> nil then
          try
            CmdTarget.Exec( PtrGUID, HTMLID_VIEWSOURCE, 0, vaIn, vaOut);
          finally
            CmdTarget._Release;
          end;
      except
        // Nothing
      end;
  Dispose(PtrGUID);
end;