unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, SHDocVw_TLB, ExtCtrls, Menus, AppEvnts;    type
  TForm1 = class(TForm)
    Panel1: TPanel;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    ApplicationEvents1: TApplicationEvents;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure SetCharSet(Const ACharSet: String);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
 uses 
 MSHTML_TLB, ActiveX; 
{$R *.DFM}    //編碼處理
procedure TForm1.SetCharSet(Const ACharSet: String);
var
 RefreshLevel: OleVariant;
begin
  try
  IHTMLDocument2(Form1.WebBrowser1.Document).Set_CharSet(ACharSet);
  RefreshLevel :=7;
  Form1.WebBrowser1.Refresh2(RefreshLevel);
  except
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
 //開啟網頁
 WebBrowser1.Navigate ('http://www.google.com.tw');
end;    procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
 Pos: TPoint;
begin
 // WebBrower使用自己制訂的選單
 if Msg.message <> WM_RBUTTONUP then
   Exit;
 GetCursorPos(Pos);
 if FindVCLWindow(Pos) = WebBrowser1 then
 begin
   GetCursorPos(PoS);
   PopupMenu1.Popup(Pos.X, Pos.Y);
   Handled := True;
 end;
end;    procedure TForm1.N2Click(Sender: TObject);
begin
SetCharset('big5');  //編碼-繁體中文
end;    procedure TForm1.N3Click(Sender: TObject);
begin
SetCharset('gb2312');//編碼-簡體中文
end;    procedure TForm1.N4Click(Sender: TObject);
begin
SetCharset('_autodetect_all');  //自動選取
end;    end.