unit1.~dfm

很多人都说webbrowser修改不了GOOKIE 所以做了一个这样的实例..希望能帮助大家 里面全部有注释

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 785
  Height = 612
  Caption = #24515#21160#21543#40657#23458#30334#23453#31665'   by '#24515#21160#21543#26126#29983'KISS'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 256
    Top = 77
    Width = 30
    Height = 13
    Caption = #32447#31243' :'
  end
  object Label5: TLabel
    Left = 8
    Top = 44
    Width = 39
    Height = 13
    Caption = #22320#22336#26639':'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 777
    Height = 585
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #27983#35272#32593#39029
      object StatusBar1: TStatusBar
        Left = 0
        Top = 538
        Width = 769
        Height = 19
        Panels = <
          item
            Width = 600
          end
          item
            Width = 50
          end>
      end
      object WebBrowser1: TWebBrowser
        Left = 0
        Top = 73
        Width = 769
        Height = 465
        Align = alClient
        TabOrder = 1
        OnProgressChange = WebBrowser1ProgressChange
        OnDownloadBegin = WebBrowser1DownloadBegin
        OnDownloadComplete = WebBrowser1DownloadComplete
        OnDocumentComplete = WebBrowser1DocumentComplete
        ControlData = {
          4C0000007A4F00000F3000000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
      object CoolBar1: TCoolBar
        Left = 0
        Top = 0
        Width = 769
        Height = 73
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 40
            Width = 765
          end
          item
            Control = Panel1
            ImageIndex = -1
            Width = 765
          end>
        object ToolBar1: TToolBar
          Left = 9
          Top = 0
          Width = 752
          Height = 40
          AutoSize = True
          ButtonHeight = 36
          ButtonWidth = 31
          Caption = 'ToolBar1'
          Images = ImageList1
          ShowCaptions = True
          TabOrder = 0
          object ToolButton1: TToolButton
            Left = 0
            Top = 2
            Caption = #21518#36864
            ImageIndex = 0
            OnClick = ToolButton1Click
          end
          object ToolButton2: TToolButton
            Left = 31
            Top = 2
            Width = 8
            Caption = 'ToolButton2'
            ImageIndex = 1
            Style = tbsSeparator
          end
          object ToolButton3: TToolButton
            Left = 39
            Top = 2
            Caption = #21069#36827
            ImageIndex = 1
            OnClick = ToolButton3Click
          end
          object ToolButton4: TToolButton
            Left = 70
            Top = 2
            Width = 8
            Caption = 'ToolButton4'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton5: TToolButton
            Left = 78
            Top = 2
            Caption = #20572#27490
            ImageIndex = 2
            OnClick = ToolButton5Click
          end
          object ToolButton6: TToolButton
            Left = 109
            Top = 2
            Width = 8
            Caption = 'ToolButton6'
            ImageIndex = 3
            Style = tbsSeparator
          end
          object ToolButton7: TToolButton
            Left = 117
            Top = 2
            Caption = #21047#26032
            ImageIndex = 3
            OnClick = ToolButton7Click
          end
          object ToolButton8: TToolButton
            Left = 148
            Top = 2
            Width = 8
            Caption = 'ToolButton8'
            ImageIndex = 4
            Style = tbsSeparator
          end
          object ToolButton9: TToolButton
            Left = 156
            Top = 2
            AutoSize = True
            Caption = #20027#39029
            ImageIndex = 4
            OnClick = ToolButton9Click
          end
          object Panel2: TPanel
            Left = 191
            Top = 2
            Width = 514
            Height = 36
            TabOrder = 0
            object Label2: TLabel
              Left = 8
              Top = 11
              Width = 50
              Height = 13
              Caption = 'COOKIES:'
            end
            object Edit2: TEdit
              Left = 64
              Top = 8
              Width = 449
              Height = 21
              TabOrder = 0
            end
          end
          object Button2: TButton
            Left = 705
            Top = 2
            Width = 40
            Height = 36
            Caption = #20462#25913
            TabOrder = 1
            OnClick = Button2Click
          end
        end
        object Panel1: TPanel
          Left = 9
          Top = 42
          Width = 752
          Height = 25
          TabOrder = 1
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 39
            Height = 13
            Caption = #22320#22336#26639':'
          end
          object Label3: TLabel
            Left = 664
            Top = 8
            Width = 3
            Height = 13
            Caption = ' '
          end
          object Label4: TLabel
            Left = 624
            Top = 8
            Width = 33
            Height = 13
            Caption = #25490#21517' : '
          end
          object Edit1: TEdit
            Left = 56
            Top = 0
            Width = 481
            Height = 21
            TabOrder = 0
            Text = 'http://www.abcxd.com'
          end
          object Button1: TButton
            Left = 544
            Top = 0
            Width = 75
            Height = 25
            Caption = #36830#25509
            TabOrder = 1
            OnClick = Button1Click
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21518#21488#25195#25551
      ImageIndex = 1
      object CoolBar2: TCoolBar
        Left = 0
        Top = 0
        Width = 769
        Height = 121
        Bands = <
          item
            Control = Panel3
            ImageIndex = -1
            Width = 765
          end
          item
            Control = Panel4
            ImageIndex = -1
            Width = 765
          end>
        object Label9: TLabel
          Left = 8
          Top = 56
          Width = 684
          Height = 13
          Caption = #26234#33021#27169#24335#24320#21551#21518','#20250#26681#25454#24403#21069#32593#31449#30340#38169#35823#26469#21028#26029#39029#38754#26159#21542#23384#22312','#24403#25195#25551#21040#23384#22312#30340#30446#24405#20250#32487#32493#24448#19979#38754#30340#30446#24405#36827#34892#25195#25551','#24471#21040#26368#21518#30446#24405#20026#27490'.'
        end
        object Label10: TLabel
          Left = 8
          Top = 104
          Width = 501
          Height = 13
          Caption = 
            #25195#25551#30446#24405#21015#34920#25991#20214':'#24403#21069#25991#20214'/abcxdpath.txt                     '#38169#35823#25991#20214#21028#26029#25991#20214'/abcxder' +
            'r.txt                      '
        end
        object Label11: TLabel
          Left = 8
          Top = 80
          Width = 318
          Height = 13
          Caption = #32780#19988#36824#20250#23558#24403#21069#32593#31449#19979#25152#24471#21040#30340#20998#31449#28857','#19968#24182#25195#25551'.....................'
        end
        object Panel3: TPanel
          Left = 9
          Top = 0
          Width = 752
          Height = 25
          TabOrder = 0
          object Label7: TLabel
            Left = 8
            Top = 6
            Width = 45
            Height = 13
            Caption = #22320#22336#26639' : '