How to call the View Source dialog in WebBrowser

برداشتي از سايت http://delphi.about.com
اگر مي خواهيد تابع ViewSource از مرورگر اينترنت خودتان را صدا بزنيد با برنامه نمونه زير مي توانيد اينکار را انجام دهيد
براي اينکار کافيست يک فرم و يک Buttom و يک TWebBrowser داشته باشيد
و برنامه زير را استفاده کنيد.

~~~~~~~~~~~~~~~~~~~~~~~~~
uses ActiveX;

procedure WBViewSourceDialog(AWebBrowser: TWebbrowser) ;
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
  HTMLID_VIEWSOURCE = 2;

var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID) ;
  PtrGUID^ := CGID_WebBrowser;
  if AWebBrowser.Document <> nil then
    try
      AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget) ;
      if CmdTarget <> nil then
      try
        CmdTarget.Exec(PtrGUID, HTMLID_VIEWSOURCE, 0, vaIn, vaOut) ;
      finally
        CmdTarget._Release;
      end;
    except
   end;
  Dispose(PtrGUID) ;
end;

procedure TForm1.FormCreate(Sender: TObject) ;
begin
  WebBrowser1.Navigate('http://www.delphi.about.com') ;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  WBViewSourceDialog(WebBrowser1) ;
end;