www.pudn.com > sanmail.rar > main.dfm


object frmMain: TfrmMain 
  Left = 198 
  Top = 146 
  BorderIcons = [biSystemMenu, biMinimize] 
  BorderStyle = bsSingle 
  Caption = #24494#38632#37038#20214#32676#21457'  V1.0  http://www.codechina.net' 
  ClientHeight = 321 
  ClientWidth = 520 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  Icon.Data = { 
    0000010002002020100000000000E80200002600000010101000000000002801 
    00000E0300002800000020000000400000000100040000000000800200000000 
    0000000000000000000000000000000000000000800000800000008080008000 
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00 
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000007777777777777777777777777000000 
    07000000000000000000000000000000070FFFFFFFFFFFFFFFFFFFFFFFF00000 
    070FFFFFFFFFFFFFFFFFFFFFFFF00000070FFFFFFFFFF87FFFFFFFFFFFF08888 
    88888F8FFF8777FF777FFFFFFFF00000000000FFFFFFFFFFFFFFFFFFFFF00000 
    070FFFFFFF877777777FFFFFFFF0008888888FFFFFFFFFFFFFFFFFFFFFF00000 
    000000FFFF877777777FFFFFFFF00000070FFFFFFFFFFFFFFFFFFFFFFFF00888 
    88888888F888FFFFFFFFFFFFFFF00000000000000F000FFFFFF1F1F191F00000 
    070FFFFFFFFFFFFFFFFFFFF979F08888880F7878FFFFFFFFFFF1F1F191F00000 
    000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFF8000003F8000000F8000000F8000000F800 
    00000000000000000000F8000000C0000000C0000000F8000000800000008000 
    0000F80000000000000000000000FC000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF 
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000 
    0000C00000000000000000000000000000000000000000000000000080000080 
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF 
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000 
    0000000000000000000000000000007777777777777000700000000000008888 
    8FFFFFFFFFF0000008F77777FFF0888888888FFFFFF0000000000777FFF00888 
    88FFFFFFFFF0000000FFFFF181100000FFFFFFF1811000000000000000000000 
    00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF 
    0000C0010000C000000000000000000000000000000000000000800000008000 
    0000E0000000E0000000FFFF0000FFFF0000FFFF0000} 
  OldCreateOrder = False 
  OnCreate = FormCreate 
  PixelsPerInch = 96 
  TextHeight = 13 
  object PageControl1: TPageControl 
    Left = 8 
    Top = 8 
    Width = 505 
    Height = 297 
    ActivePage = TabSheet1 
    TabIndex = 0 
    TabOrder = 0 
    object TabSheet1: TTabSheet 
      Caption = #21457#36865#37038#20214 
      object Gauge: TGauge 
        Left = 16 
        Top = 248 
        Width = 465 
        Height = 16 
        ForeColor = clBlue 
        Progress = 0 
        Visible = False 
      end 
      object Label1: TLabel 
        Left = 16 
        Top = 224 
        Width = 60 
        Height = 13 
        Caption = #37038#20214#24635#25968#65306 
      end 
      object Label7: TLabel 
        Left = 120 
        Top = 224 
        Width = 36 
        Height = 13 
        Caption = #25104#21151#65306 
      end 
      object Label8: TLabel 
        Left = 200 
        Top = 224 
        Width = 36 
        Height = 13 
        Caption = #22833#36133#65306 
      end 
      object lblMailNum: TLabel 
        Left = 72 
        Top = 224 
        Width = 49 
        Height = 13 
        AutoSize = False 
        Caption = '0' 
        Font.Charset = DEFAULT_CHARSET 
        Font.Color = clBlue 
        Font.Height = -11 
        Font.Name = 'MS Sans Serif' 
        Font.Style = [] 
        ParentFont = False 
      end 
      object lblWinNum: TLabel 
        Left = 152 
        Top = 224 
        Width = 49 
        Height = 13 
        AutoSize = False 
        Caption = '0' 
        Font.Charset = DEFAULT_CHARSET 
        Font.Color = clBlue 
        Font.Height = -11 
        Font.Name = 'MS Sans Serif' 
        Font.Style = [] 
        ParentFont = False 
      end 
      object lblFailNum: TLabel 
        Left = 232 
        Top = 224 
        Width = 48 
        Height = 13 
        AutoSize = False 
        Caption = '0' 
        Font.Charset = DEFAULT_CHARSET 
        Font.Color = clBlue 
        Font.Height = -11 
        Font.Name = 'MS Sans Serif' 
        Font.Style = [] 
        ParentFont = False 
      end 
      object Button1: TButton 
        Left = 288 
        Top = 218 
        Width = 65 
        Height = 26 
        Hint = #25171#24320#37038#20214#21015#34920#65292#35201#27714#25991#26412#25991#20214#65292#27599#37038#20214#22320#22336#20026#19968#34892 
        Caption = #25171#24320#21015#34920 
        ParentShowHint = False 
        ShowHint = True 
        TabOrder = 0 
        OnClick = Button1Click 
      end 
      object btnSend: TButton 
        Left = 360 
        Top = 218 
        Width = 57 
        Height = 26 
        Hint = #21457#36865 
        Caption = #21457'  '#36865 
        Enabled = False 
        ParentShowHint = False 
        ShowHint = True 
        TabOrder = 1 
        OnClick = btnSendClick 
      end 
      object Minfo: TMemo 
        Left = 200 
        Top = 16 
        Width = 297 
        Height = 89 
        Lines.Strings = ( 
          '==============================================' 
          #24494#38632#37038#20214#32676#21457'   '#20316#32773#65306#36763#20339#38632 
          #20195#30721#20013#22269#32593' http://www.codechina.net' 
          #27492#20449#24687#30001#36719#20214#20351#29992#32773#21457#20986#19982#26412#36719#20214#20316#32773#26080#20851#65281) 
        TabOrder = 2 
        Visible = False 
      end 
      object StringGrid: TStringGrid 
        Left = 0 
        Top = 8 
        Width = 497 
        Height = 204 
        ColCount = 3 
        Ctl3D = True 
        FixedCols = 0 
        RowCount = 8 
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect] 
        ParentCtl3D = False 
        ScrollBars = ssVertical 
        TabOrder = 3 
      end 
      object butClose: TButton 
        Left = 424 
        Top = 218 
        Width = 65 
        Height = 25 
        Hint = #36864#20986 
        Caption = #36864'  '#20986 
        ParentShowHint = False 
        ShowHint = True 
        TabOrder = 4 
        OnClick = butCloseClick 
      end 
    end 
    object TabSheet2: TTabSheet 
      Caption = #21457#36865#20869#23481 
      ImageIndex = 1 
      object Label4: TLabel 
        Left = 15 
        Top = 68 
        Width = 74 
        Height = 13 
        AutoSize = False 
        Caption = #37038#20214#27491#25991#65306 
      end 
      object Label5: TLabel 
        Left = 15 
        Top = 23 
        Width = 50 
        Height = 13 
        AutoSize = False 
        Caption = #21457#20214#20154#65306 
      end 
      object Label6: TLabel 
        Left = 14 
        Top = 45 
        Width = 48 
        Height = 13 
        Caption = #20027'    '#39064#65306 
      end 
      object mmContent: TMemo 
        Left = 16 
        Top = 86 
        Width = 473 
        Height = 161 
        ScrollBars = ssVertical 
        TabOrder = 0 
      end 
      object edtFrom: TEdit 
        Left = 61 
        Top = 18 
        Width = 152 
        Height = 21 
        TabOrder = 1 
      end 
      object edtSubject: TEdit 
        Left = 61 
        Top = 42 
        Width = 356 
        Height = 21 
        TabOrder = 2 
      end 
    end 
    object TabSheet3: TTabSheet 
      Caption = #31995#32479#35774#32622 
      ImageIndex = 2 
      object GroupBox1: TGroupBox 
        Left = 16 
        Top = 7 
        Width = 465 
        Height = 92 
        Caption = #21457#36865#35774#32622 
        TabOrder = 0 
        object Label2: TLabel 
          Left = 24 
          Top = 27 
          Width = 59 
          Height = 13 
          Caption = 'DNS'#35774#32622#65306 
        end 
        object Label3: TLabel 
          Left = 24 
          Top = 60 
          Width = 60 
          Height = 13 
          Caption = #21457#36865#22495#21517#65306 
        end 
        object edtDns: TEdit 
          Left = 88 
          Top = 24 
          Width = 257 
          Height = 21 
          TabOrder = 0 
        end 
        object edtHeader: TEdit 
          Left = 88 
          Top = 56 
          Width = 257 
          Height = 21 
          TabOrder = 1 
        end 
        object butSetupOk: TButton 
          Left = 368 
          Top = 53 
          Width = 75 
          Height = 25 
          Caption = #20445#23384#35774#32622 
          TabOrder = 2 
          OnClick = butSetupOkClick 
        end 
        object chk: TCheckBox 
          Left = 368 
          Top = 24 
          Width = 89 
          Height = 17 
          Caption = #39640#36895#21457#36865 
          ParentShowHint = False 
          ShowHint = True 
          TabOrder = 3 
        end 
      end 
      object Memo1: TMemo 
        Left = 16 
        Top = 120 
        Width = 465 
        Height = 137 
        BorderStyle = bsNone 
        Color = clActiveBorder 
        Ctl3D = False 
        Enabled = False 
        Lines.Strings = ( 
          #9679' DNS'#35774#32622#65306 
          'DNS'#35774#32622#29992#26469#25351#23450#22495#21517#26381#21153#22120#30340#22320#22336#65292#20320#20063#21487#20197#25351#23450#20219#19968#21487#20197#24555#36895#35775#38382#21040#30340'Internet'#19978#22495 
          #21517#26381#21153#22120#22320#22336#65292#35201#30693#36947#33258#24049#25152#22312#22320#30340#22495#21517#26381#21153#22120#22320#22336#65292'win98'#19979#36890#36807'winipcfg'#21629#20196',win2000' 
          #19979#36890#36807'ipconfig /all'#21363#21487#26597#20986#12290 
          '' 
          #9679' '#21457#36865#22495#21517 
          #21457#36865#37038#20214#30340#26381#21153#22120#22495#21517#12290#22914#27809#26377#21457#36865#22495#21517#65292#35831#26368#22909#22635#20889#19968#20010#65292 
          #20363#22914#65306'xxx.com'#12290#22914#26524#27809#26377#22635#20889#65292#21487#33021#20250#36896#25104#26576#20123#37038#20214#26381#21153#22120#25298#25910#12290) 
        ParentCtl3D = False 
        TabOrder = 1 
      end 
    end 
    object TabSheet4: TTabSheet 
      Caption = #20851'      '#20110 
      ImageIndex = 3 
      object GroupBox2: TGroupBox 
        Left = 8 
        Top = 8 
        Width = 481 
        Height = 73 
        Caption = #20851#20110#26412#36719#20214 
        Font.Charset = GB2312_CHARSET 
        Font.Color = clBlue 
        Font.Height = -12 
        Font.Name = #23435#20307 
        Font.Style = [] 
        ParentFont = False 
        TabOrder = 0 
        object Memo2: TMemo 
          Left = 8 
          Top = 16 
          Width = 465 
          Height = 54 
          BorderStyle = bsNone 
          Color = clActiveBorder 
          Ctl3D = False 
          Enabled = False 
          Lines.Strings = ( 
            #24403#20316#32773#32534#20889#36825#20010#36719#20214#30340#26102#20505#65292#22312#20114#32852#32593#19978#26089#24050#26377#20102#24456#22810#25104#29087#30340#27492#31867#36719#20214#12290#21482#26159#20316#32773#24819#29992 
            #27492#31867#36719#20214#30340#26102#20505#65292#21457#29616#22914#26524#27809#26377#27880#20876#65292#23601#20250#26377#22909#22810#30340#38480#21046#65292#21313#20998#19981#20415#12290#25152#20197#25165#32534#20889#36825#20010 
            #36719#20214#12290#20026#20102#33258#24050#20063#20026#20102#26379#21451#26041#20415#12290#24076#26395#20351#29992#32773#22810#22810#25552#20379#20445#36149#24847#35265#12290 
            #22768#26126#65306#27492#29256#26412#36719#20214#20813#36153#65281) 
          ParentCtl3D = False 
          TabOrder = 0 
        end 
      end 
      object GroupBox3: TGroupBox 
        Left = 8 
        Top = 88 
        Width = 481 
        Height = 73 
        Caption = #20851#20110#20316#32773 
        TabOrder = 1 
        object Memo3: TMemo 
          Left = 8 
          Top = 16 
          Width = 465 
          Height = 54 
          BorderStyle = bsNone 
          Color = clActiveBorder 
          Ctl3D = False 
          Enabled = False 
          Lines.Strings = ( 
            #20316#32773#65306#36763#20339#38632' '#29983#26085#65306'1977'#24180'1'#26376'5'#26085 
            #32593#21517#65306'microrain ('#24494#38632')' 
            #32593#31449#65306'http://www.codechina.net '#65288#20195#30721#20013#22269#65289 
            'Mail '#65306'webmaster@codechina.net') 
          ParentCtl3D = False 
          TabOrder = 0 
        end 
      end 
      object GroupBox4: TGroupBox 
        Left = 8 
        Top = 168 
        Width = 481 
        Height = 81 
        Caption = #20851#20110#20195#30721#20013#22269 
        TabOrder = 2 
        object Memo4: TMemo 
          Left = 8 
          Top = 16 
          Width = 465 
          Height = 54 
          BorderStyle = bsNone 
          Color = clActiveBorder 
          Ctl3D = False 
          Enabled = False 
          Lines.Strings = ( 
            #20195#30721#20013#22269 
            #22987#24314#20110'2000'#24180'6'#26376#65292#24535#22312#20026#24191#22823#24320#21457#20154#21592#25552#20379#19968#20010#28304#20195#30721#20132#27969#21450#23398#20064#30340#32593#19978#24179#21488#12290 
            '2002'#24180'3'#26376#20221#20877#27425#25913#29256#22686#24378#20102#32593#31449#21151#33021#21644#26381#21153#36136#37327#12290#29616#65292#20195#30721#20013#22269#20026#22823#23478#23398#20064#20043#29992#20813#36153#25552 
            #20379#21508#31867#31243#24207#28304#20195#30721#21450#25216#26415#36164#26009#12290#32593#22336#65306' http://www.codechina.net') 
          ParentCtl3D = False 
          TabOrder = 0 
        end 
      end 
    end 
    object TabSheet5: TTabSheet 
      Caption = #20351#29992#21327#35758 
      ImageIndex = 4 
      object RichEdit1: TRichEdit 
        Left = 8 
        Top = 8 
        Width = 481 
        Height = 249 
        Font.Charset = GB2312_CHARSET 
        Font.Color = clWindowText 
        Font.Height = -11 
        Font.Name = 'MS Sans Serif' 
        Font.Style = [] 
        Lines.Strings = ( 
          '                      '#12298#24494#38632#37038#20214#32676#21457#12299#20351#29992#21327#35758 
          '' 
          #27426#36814#20320#20351#29992#26412#36719#20214#65292#22312#20351#29992#26412#36719#20214#21069#65292#35831#35748#30495#30475#23436#20197#19979#20869#23481#12290 
          '' 
          ' '#9632#29305#21035#22768#26126':' 
          '    '#26412#36719#20214#20026#20813#36153#36719#20214#65292#20219#20309#20154#19981#24471#20197#36194#21033#30446#22320#20256#25773#26412#36719#20214#12290#24744#21487#22312#19981#25439#21450#29256#26435#25152#26377#32773#26435#30410#30340#21069 
          #25552#19979#36866#24230#25955#24067#21644#20351#29992#26412#31243#24207#12290#21516#26102#65292#26412#31243#24207#19981#20445#35777#33021#20860#23481#25152#26377#30340#35745#31639#26426#30828#20214#21644#21516#26426#23433#35013#30340#20219#20309#36719 
          #20214#31243#24207#65292#24744#24517#39035#33258#34892#25285#36127#25152#26377#21487#33021#22240#20351#29992#26412#31243#24207#32780#21457#29983#30340#39118#38505#65281 
          '' 
          '    '#35831#19981#35201#36890#36807#26412#36719#20214#21457#24067#26377#20851#25919#27835#12289#33394#24773#12289#23447#25945#12289#36855#20449#31561#36829#27861#20449#24687#65292#30001#27492#30452#25509#25110#38388#25509#24341#36215#30340#21009 
          #20107#25110#27665#20107#27861#24459#36131#20219#65292#22343#30001#20351#29992#32773#25215#25285#65281#19982#26412#36719#20214#20316#32773#26080#20219#20309#20851#31995#12290 
          '' 
          '                                                 '#36763#20339#38632 
          '                                                 2002'#24180'6'#26376) 
        ParentFont = False 
        ReadOnly = True 
        TabOrder = 0 
      end 
    end 
  end 
  object OpenDialog: TOpenDialog 
    Left = 352 
    Top = 8 
  end 
  object IdDNSResolver: TIdDNSResolver 
    Port = 53 
    ReceiveTimeout = 4000 
    Left = 392 
    Top = 8 
  end 
  object IdAntiFreeze1: TIdAntiFreeze 
    Left = 416 
    Top = 8 
  end 
  object IdSMTP: TIdSMTP 
    Left = 472 
    Top = 3 
  end 
  object IdMsgSend: TIdMessage 
    BccList = <> 
    CCList = <> 
    NewsGroups.Strings = ( 
      'http://www.codechina.net') 
    Recipients = <> 
    ReplyTo = <> 
    Left = 440 
    Top = 5 
  end 
  object XPMenu1: TXPMenu 
    DimLevel = 30 
    GrayLevel = 10 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clMenuText 
    Font.Height = -12 
    Font.Name = #23435#20307 
    Font.Style = [] 
    Color = clBtnFace 
    IconBackColor = clBtnFace 
    MenuBarColor = clBtnFace 
    SelectColor = clHighlight 
    SelectBorderColor = clHighlight 
    SelectFontColor = clMenuText 
    DisabledColor = clInactiveCaption 
    SeparatorColor = clBtnFace 
    CheckedColor = clHighlight 
    IconWidth = 24 
    DrawSelect = True 
    UseSystemColors = True 
    OverrideOwnerDraw = False 
    Gradient = False 
    FlatMenu = False 
    AutoDetect = False 
    Active = True 
    Left = 240 
    Top = 184 
  end 
end