ie.dfm

这是一个IE拦截程序

object Form1: TForm1
  Left = 194
  Top = 150
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'IE'
  ClientHeight = 247
  ClientWidth = 567
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 200
    Width = 81
    Height = 17
    AutoSize = False
    Caption = #22320#22336#26631#39064#65306
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 248
    Top = 16
    Width = 305
    Height = 177
    Caption = #22320#22336#26639#20449#24687#65306
    TabOrder = 0
    object ListBox1: TListBox
      Left = 6
      Top = 11
      Width = 295
      Height = 161
      Color = clGradientActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 17
    Width = 234
    Height = 176
    Caption = #28155#21152#22320#22336#26639
    TabOrder = 1
    object ListBox2: TListBox
      Left = 16
      Top = 32
      Width = 121
      Height = 97
      ItemHeight = 13
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 13
      Width = 223
      Height = 155
      Color = clGradientActiveCaption
      DataSource = DataSource1
      PopupMenu = PopupMenu1
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'URl'
          Visible = True
        end>
    end
  end
  object Edit1: TEdit
    Left = 86
    Top = 198
    Width = 259
    Height = 21
    Color = clGradientActiveCaption
    TabOrder = 2
  end
  object Button2: TButton
    Left = 367
    Top = 203
    Width = 74
    Height = 20
    Caption = #28155' '#21152
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button1: TButton
    Left = 472
    Top = 203
    Width = 73
    Height = 22
    Caption = #38544#34255
    TabOrder = 4
    OnClick = Button1Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 232
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 152
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ie.md' +
      'b;Mode=Share Deny None;Extended Properties="";Persist Security I' +
      'nfo=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="' +
      '";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLE' +
      'DB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;J' +
      'et OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passw' +
      'ord="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt ' +
      'Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet ' +
      'OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 120
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'URL'
    Left = 88
  end
  object PopupMenu1: TPopupMenu
    Left = 135
    Top = 65
    object N1: TMenuItem
      Caption = #35201#21862
    end
    object N2: TMenuItem
      Caption = #19981#35201#21862
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #20840#37096#20002
      OnClick = N4Click
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <
      item
        Name = 's'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from ie where URl='#39'fdgdfg'#39)
    Left = 184
  end
  object Timer2: TTimer
    Interval = 1
    OnTimer = Timer2Timer
    Left = 264
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'b'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    Left = 48
  end
end