其他

开发平台：
Delphi

SysCfg.dfm：源码内容
							object SysCfgDlg: TSysCfgDlg
  Left = 326
  Top = 234
  BorderStyle = bsDialog
  Caption = '系统设置'
  ClientHeight = 206
  ClientWidth = 288
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object btnOk: TBitBtn
    Left = 64
    Top = 176
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 0
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 144
    Top = 176
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 1
    Kind = bkCancel
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 288
    Height = 73
    Align = alTop
    Caption = '网络设置'
    TabOrder = 2
    object Label7: TLabel
      Left = 164
      Top = 48
      Width = 48
      Height = 12
      Caption = '代理端口'
    end
    object Label3: TLabel
      Left = 16
      Top = 20
      Width = 84
      Height = 12
      Caption = 'OICQ服务器地址'
    end
    object Label4: TLabel
      Left = 16
      Top = 48
      Width = 84
      Height = 12
      Caption = 'OICQ服务器端口'
    end
    object edLocalPort: TSpinEdit
      Left = 216
      Top = 43
      Width = 65
      Height = 21
      MaxValue = 65535
      MinValue = 1
      TabOrder = 0
      Value = 8810
    end
    object edSrvAddr: TEdit
      Left = 104
      Top = 16
      Width = 97
      Height = 20
      TabOrder = 1
      Text = '202.103.190.46'
    end
    object edSrvPort: TSpinEdit
      Left = 104
      Top = 43
      Width = 53
      Height = 21
      MaxValue = 0
      MinValue = 0
      TabOrder = 2
      Value = 8000
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 73
    Width = 288
    Height = 96
    Align = alTop
    Caption = '系统设置'
    TabOrder = 3
    object Label5: TLabel
      Left = 28
      Top = 20
      Width = 48
      Height = 12
      Caption = 'OICQ路径'
    end
    object btnBrowOICQPath: TSpeedButton
      Left = 248
      Top = 16
      Width = 20
      Height = 20
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
        1F7C1F7C1F7C0000000000420042004200420042004200420042004200001F7C
        1F7C1F7C1F7C0000E07F00000042004200420042004200420042004200420000
        1F7C1F7C1F7C0000FF7FE07F0000004200420042004200420042004200420042
        00001F7C1F7C0000E07FFF7FE07F000000420042004200420042004200420042
        004200001F7C0000FF7FE07FFF7FE07F00000000000000000000000000000000
        0000000000000000E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F00001F7C1F7C
        1F7C1F7C1F7C0000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F00001F7C1F7C
        1F7C1F7C1F7C0000E07FFF7FE07F00000000000000000000000000001F7C1F7C
        1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C0000
        1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      OnClick = btnBrowOICQPathClick
    end
    object Label1: TLabel
      Left = 4
      Top = 48
      Width = 72
      Height = 12
      Caption = 'IP数据库路径'
    end
    object btnBrowDBFPath: TSpeedButton
      Left = 248
      Top = 44
      Width = 20
      Height = 20
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
        1F7C1F7C1F7C0000000000420042004200420042004200420042004200001F7C
        1F7C1F7C1F7C0000E07F00000042004200420042004200420042004200420000
        1F7C1F7C1F7C0000FF7FE07F0000004200420042004200420042004200420042
        00001F7C1F7C0000E07FFF7FE07F000000420042004200420042004200420042
        004200001F7C0000FF7FE07FFF7FE07F00000000000000000000000000000000
        0000000000000000E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F00001F7C1F7C
        1F7C1F7C1F7C0000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F00001F7C1F7C
        1F7C1F7C1F7C0000E07FFF7FE07F00000000000000000000000000001F7C1F7C
        1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C0000
        1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      OnClick = btnBrowDBFPathClick
    end
    object edPath: TEdit
      Left = 80
      Top = 16
      Width = 169
      Height = 20
      TabOrder = 0
      Text = 'C:Program FilesOICQ'
    end
    object cbAutoLaunch: TCheckBox
      Left = 80
      Top = 72
      Width = 121
      Height = 17
      Caption = '自动启动OpenICQ'
      TabOrder = 1
    end
    object edDBFPath: TEdit
      Left = 80
      Top = 44
      Width = 169
      Height = 20
      TabOrder = 2
      Text = 'wry.dll'
    end
  end
  object OpenDlg: TOpenDialog
    DefaultExt = '.dll'
    FileName = 'wry.dll'
    Filter = '追捕数据库(wry.dll)|wry.dll'
    Left = 172
    Top = 121
  end
end

						