IEと同じHTMLソース表示を実装するには？ (ID:12809)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでどうでしょう。 WebBrowserがどのコンポーネントか解りませんが、Document(IHTMLDocument2インターフェース)プロパティを、IOleCOmmandTargetインターフェースにキャストして、Execを使えばできると思います。 IOleCommandTargetは、ActiveXユニットに定義されています。 CGID_WebBrowser, HTMLID_VIEWSOURCEは、IEConstユニットに定義されていると思います。 UIWebBrowserで動作確認済です。 # WinXPproSP2+Delphi7pro+IE6.0SP2 var ComTarget: IOleCommandTarget; pIn, pOut: OleVariant; begin ComTarget := WebBrowser.Document As IOleCommandTarget; pIn := NULL; pOut := NULL; ComTarget.Exec(@CGID_WebBrowser, HTMLID_VIEWSOURCE, 0, pIn, pOut); end;