unit1.~dfm

短信发送器 delphi 完全原代码,可以在d7 and windows xp下编译通过

object Form1: TForm1
  Left = 192
  Top = 112
  Width = 519
  Height = 388
  ActiveControl = Editname
  Caption = '短信发送器'
  Color = clBtnFace
  Constraints.MaxHeight = 570
  Constraints.MaxWidth = 800
  Constraints.MinHeight = 50
  Constraints.MinWidth = 130
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object suiForm1: TsuiForm
    Left = 1
    Top = 0
    Width = 509
    Height = 353
    UIStyle = MacOS
    BorderColor = 8355711
    BorderWidth = 1
    Color = 15198183
    Caption = '短信发送器'
    TitleBarButtons = <
      item
        ButtonType = suiControlBox
        Transparent = False
        Top = 4
        UIStyle = MacOS
        PicNormal.Data = {
          07544269746D61708A050000424D8A0500000000000036040000280000001100
          0000110000000100080000000000540100000000000000000000000100000001
          000000000000FFFFFF00201039001F10370045365B0045365A00381858005C34
          8200CFC9D500EAE6EE00E8E4EC004A335F0068547A008D73A50097909D006535
          890064358800B795C60083349B0082349A00662C7200C69CCE00881D9A00851D
          95008C2D9B00692C7400C79CCE009D32AB00991CA600961CA3009C32A8006630
          6A00632F6700A62BAE00A62BAD007C248000A11BA500A31CA700AB20AE00A720
          AB0079237C00CB43CE00AB3AAE00C444C700CB47CE00CB50CE00CA50CD00D85C
          DA00E96CEC00E86BEA00ED73EF00B02BB100AC2AAD00B82FB900B62FB800AB2F
          AB00A92FAA00BD37BF00BB37BD00B738B900B638B800D243D300AC38AD00E74D
          E800DF4BE100C143C300CB47CD00CA48C900CD4BCF00CC52CD00DA59DC00DB59
          DC00D155D200D557D600D65AD600E66AE700E569E500F474F500FC7BFD00F277
          F300F479F500CDCCCD009E339C009E349B00E065DE00E167E000E069DF00F97A
          F800F67BF400FE82FB00FE88FD00F97BF300FE84F900FF89F900FE89F900CD47
          C300F97EF200E955DB00FE90F500FE92F400FD92F200FD95F000FF97F200FD9B
          EF00D9D8D800EFF1F10076777700FEFFFF00E9EAEA00E3E4E400626465002526
          27006263640026272E005B5C6300FCFCFC00F8F8F800F3F3F300F1F1F100EFEF
          EF00EEEEEE00EDEDED00EAEAEA00E9E9E900E8E8E800E7E7E700E2E2E200E1E1
          E100DFDFDF00DEDEDE00DBDBDB00DADADA00D9D9D900D8D8D800D7D7D700D6D6
          D600D3D3D300D2D2D200D1D1D100D0D0D000CECECE00CDCDCD00C7C7C700C2C2
          C200BCBCBC00BBBBBB00BABABA00B4B4B400B2B2B200B1B1B100AEAEAE00A4A4
          A4009F9F9F009B9B9B0094949400909090008C8C8C008A8A8A00878787007B7B
          7B006D6D6D006B6B6B00666666005C5C5C0059595900515151004B4B4B004545
          4500424242003F3F3F003D3D3D002626260009090900FFFFFF0099666600CC66
          9900CC66CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99
          FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF
          330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC33
          0000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC66
          6600FF669900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99
          CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF
          3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66
          FF00FFFF66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2
          B200D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0
          A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF008484848586888B8D8D8D8B8886858484840000007F7F8082888E91949694
          918E8882807F7F00000069797A838F979C9F6A9F9C978F837A79690000006D81
          8A959DA2A5A7A8A7A5A29D958A816D0000008189939EA320525F615F531FA39E
          9389810000007E8D987028405B646765603F236E988D7E000000788C9B142932
          5A6266635E4D3D199B8C780000008092721D484B57595D5C4E30491C72928000
          00006894052243464C4F5850314744210494680000007F90061E3A424A545655
          2F2C391B06907F000000758903132736412E452D2B3526120289750000006C88
          71071724343C3C3B3325160771886C0000007D82A60B0F18373E2A3E3818100B
          A6827D000000777A9A6F0C0D11151A15110D0C6F9A7A770000006B7374A0A90E
          080A090A080EA9A074736B00000076767787A1AA9C9251929CAAA18777767600
          00007A7A7A7B7C99A4ABACABA4997C7B7A7A7A000000}
        PicMouseOn.Data = {
          07544269746D61708A050000424D8A0500000000000036040000280000001100
          0000110000000100080000000000540100000000000000000000000100000001
          000000000000FFFFFF00201039001F10370045365B0045365A00381858005C34
          8200CFC9D500EAE6EE00E8E4EC004A335F0068547A008D73A50097909D006535
          890064358800B795C60083349B0082349A00662C7200C69CCE00881D9A00851D
          95008C2D9B00692C7400C79CCE009D32AB00991CA600961CA3009C32A8006630
          6A00632F6700A62BAE00A62BAD007C248000500D5200A31CA700AB20AE00A720
          AB0079237C00CB43CE00AB3AAE00CB47CE0065286700652866006C2E6D00E96C
          EC00ED73EF005815580056155600B82FB900B62FB80055175500A92FAA00BD37
          BF00BB37BD00B638B8005B1C5C00D243D300AC38AD00E74DE800DF4BE1006222
          630060216100CB47CD00CA48C900CD4BCF0066296600DA59DC00DB59DC00D155
          D200D557D600D65AD600743575007234720070337000E66AE700F474F5007E3D
          7E00793B79007C3D7C007A3C7A00CDCCCD009E339C009E349B0070326F007034
          6F007B3D7A00FE88FD00F97BF3007F417D007F427C007F447C00FE89F900CD47
          C300F97EF200E955DB00FE90F500FE92F400FD92F200FD95F000FF97F200FD9B
          EF00D9D8D800EFF1F10076777700FEFFFF00E9EAEA00E3E4E400626465002526
          27006263640026272E005B5C6300FCFCFC00F8F8F800F3F3F300F1F1F100EFEF
          EF00EEEEEE00EDEDED00EAEAEA00E9E9E900E8E8E800E7E7E700E2E2E200E1E1
          E100DFDFDF00DEDEDE00DBDBDB00DADADA00D9D9D900D8D8D800D7D7D700D6D6
          D600D3D3D300D2D2D200D1D1D100D0D0D000CECECE00CDCDCD00C7C7C700C2C2
          C200BCBCBC00BBBBBB00BABABA00B4B4B400B2B2B200B1B1B100AEAEAE00A4A4
          A4009F9F9F009B9B9B0094949400909090008C8C8C008A8A8A00878787007B7B
          7B006D6D6D006B6B6B00666666005C5C5C0059595900515151004B4B4B004545
          4500424242003F3F3F003D3D3D002626260009090900FFFFFF0099666600CC66
          9900CC66CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99
          FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF
          330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC33
          0000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC66
          6600FF669900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99
          CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF
          3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66
          FF00FFFF66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2
          B200D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0
          A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF008484848586888B8D8D8D8B8886858484840000007F7F8082888E91949694
          918E8882807F7F00000069797A838F979C9F6A9F9C978F837A79690000006D81
          8A959DA2A5A7A8A7A5A29D958A816D0000008189939EA320545F615F551FA39E
          9389810000007E8D9870283E5A646765603D236E988D7E000000788C9B142930
          596266635E4E3B199B8C780000008092721D474D515B5D5C4F2F481C72928000
          00006894052242454B5058524A4643210494680000007F90061E38414956574C
          2E2B371B06907F000000758903132734402D442C3F3326120289750000006C88
          71071724323A393A3125160771886C0000007D82A60B0F18353C2A3C3618100B
          A6827D000000777A9A6F0C0D11151A15110D0C6F9A7A770000006B7374A0A90E
          080A090A080EA9A074736B00000076767787A1AA9C9253929CAAA18777767600
          00007A7A7A7B7C99A4ABACABA4997C7B7A7A7A000000}
        PicMouseDown.Data = {
          07544269746D61708A050000424D8A0500000000000036040000280000001100
          0000110000000100080000000000540100000000000000000000000100000001
          000000000000FFFFFF00201039001F10370045365B0045365A00381858005C34
          8200CFC9D500EAE6EE00E8E4EC004A335F0068547A008D73A50097909D006535
          890064358800B795C60083349B0082349A00662C7200C69CCE00881D9A00851D
          95008C2D9B00692C7400C79CCE009D32AB00991CA600961CA3009C32A8006630
          6A00632F6700A62BAE00A62BAD007C248000500D5200A31CA700AB20AE00A720
          AB0079237C00CB43CE00AB3AAE00CB47CE0065286700652866006C2E6D00E96C
          EC00ED73EF005815580056155600B82FB900B62FB80055175500A92FAA00BD37
          BF00BB37BD00B638B8005B1C5C00D243D300AC38AD00E74DE800DF4BE1006222
          630060216100CB47CD00CA48C900CD4BCF0066296600DA59DC00DB59DC00D155
          D200D557D600D65AD600743575007234720070337000E66AE700F474F5007E3D
          7E00793B79007C3D7C007A3C7A00CDCCCD009E339C009E349B0070326F007034
          6F007B3D7A00FE88FD00F97BF3007F417D007F427C007F447C00FE89F900CD47
          C300F97EF200E955DB00FE90F500FE92F400FD92F200FD95F000FF97F200FD9B
          EF00D9D8D800EFF1F10076777700FEFFFF00E9EAEA00E3E4E400626465002526
          27006263640026272E005B5C6300FCFCFC00F8F8F800F3F3F300F1F1F100EFEF
          EF00EEEEEE00EDEDED00EAEAEA00E9E9E900E8E8E800E7E7E700E2E2E200E1E1
          E100DFDFDF00DEDEDE00DBDBDB00DADADA00D9D9D900D8D8D800D7D7D700D6D6
          D600D3D3D300D2D2D200D1D1D100D0D0D000CECECE00CDCDCD00C7C7C700C2C2
          C200BCBCBC00BBBBBB00BABABA00B4B4B400B2B2B200B1B1B100AEAEAE00A4A4
          A4009F9F9F009B9B9B0094949400909090008C8C8C008A8A8A00878787007B7B
          7B006D6D6D006B6B6B00666666005C5C5C0059595900515151004B4B4B004545
          4500424242003F3F3F003D3D3D002626260009090900FFFFFF0099666600CC66
          9900CC66CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99
          FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF
          330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC33
          0000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC66
          6600FF669900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99
          CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF
          3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66
          FF00FFFF66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2
          B200D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0
          A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF008484848586888B8D8D8D8B8886858484840000007F7F8082888E91949694
          918E8882807F7F00000069797A838F979C9F6A9F9C978F837A79690000006D81
          8A959DA2A5A7A8A7A5A29D958A816D0000008189939EA320545F615F551FA39E
          9389810000007E8D9870283E5A646765603D236E988D7E000000788C9B142930
          596266635E4E3B199B8C780000008092721D474D515B5D5C4F2F481C72928000
          00006894052242454B5058524A4643210494680000007F90061E38414956574C
          2E2B371B06907F000000758903132734402D442C3F3326120289750000006C88
          71071724323A393A3125160771886C0000007D82A60B0F18353C2A3C3618100B
          A6827D000000777A9A6F0C0D11151A15110D0C6F9A7A770000006B7374A0A90E
          080A090A080EA9A074736B00000076767787A1AA9C9253929CAAA18777767600
          00007A7A7A7B7C99A4ABACABA4997C7B7A7A7A000000}
      end
      item
        ButtonType = suiClose
        Transparent = False
        Top = 4
        UIStyle = MacOS
        PicNormal.Data = {
          07544269746D61708A050000424D8A0500000000000036040000280000001100
          0000110000000100080000000000540100000000000000000000000100000001
          000000000000FFFFFF00C1C2C200898A8A00AFBCFD005F6FCD006F83E900A6B3
          FE00A7B4FD00ABB8FF006374ED00424E9E00434E9E00909DF900939FF90098A4
          FE009CA8FF009CA8FE00A5B1FE00A5B1FD002433C3003442C8004351D3004A58
          D9004956D3004A57D0005664E9005968EE005562DA005B69E5005A68E4005764
          DC005D6BE7005C6AE3006171ED00626FE4006472E4006D7AF4006D7BF400353B
          6D008792FB008A97FE008994FB008C98FF008B98FE008D9AFF008E9BFE0096A2
          FE009BA6FE001D28B6001D28B4002432BF002D3AC1002E3BC3003441CC003442
          CA00333FC700323FC400323FC3003C49C7003E4ACA004350D2002F3792002E36
          8F00414DC2004A56CF004B57D0004954C3004A55C400626EE3006D79F3006A76
          EE006C77EF006974E7007C88FD007E8AFE007983F400363B6D007E89FD007A84
          F5007F8AFE007C87F8002D34B6002B3189002B2F85009C9EDA0007076B000707
          680017177C0017177A003434B9003434B8001D1D5C003535A6001D1D5B003535
          A5003434A2002E2E7B002E2E79003232810023234F00545495007373BB005252
          79009595D4003F3F5A009595D3009C9CDA009C9CD9004B4B63009090B1005F5F
          6B00C9C9DE008C8C9B003D3D4300BABAC700BABAC600E6E6F300E4E4F000CCCC
          D60094949500FEFEFE00FDFDFD00FCFCFC00F8F8F800F3F3F300F1F1F100F0F0
          F000EFEFEF00EEEEEE00EDEDED00EBEBEB00EAEAEA00E9E9E900E8E8E800E7E7
          E700E4E4E400E2E2E200E1E1E100DFDFDF00DEDEDE00DCDCDC00DBDBDB00DADA
          DA00D9D9D900D8D8D800D7D7D700D6D6D600D3D3D300D2D2D200D1D1D100D0D0
          D000CECECE00CDCDCD00C7C7C700C1C1C100BCBCBC00BBBBBB00BABABA00B4B4
          B400B2B2B200B1B1B100AEAEAE00A4A4A4009F9F9F009B9B9B00909090008C8C
          8C008A8A8A00878787007B7B7B00777777006E6E6E006D6D6D006B6B6B006666
          66005C5C5C00595959005151510045454500424242002626260009090900FFFF
          FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF
          330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC33
          0000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC66
          6600FF669900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99
          CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF
          3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66
          FF00FFFF66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2
          B200D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0
          A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF0090909091939497999999979492919090900000008A8A8C8D949A9DA0A2A0
          9D9A948E8B8A8A0000007F81858E9BA3A7AAABAAA7A3028F84827E000000888B
          96A1A8AFB2B3B4B3B2AF03A1968C880000008C959FA9B0270B0506050C4DB0A9
          9F958C0000008999A46F3F220D1304080E0A3E6FA499890000008198A6541A28
          30120907112A1B53A698810000008B9E6733494E2B2F100F2D504714679E8B00
          000090A0621521254A292E2C4B26203761A0910000008A9C593A181E484C514F
          461D1739589C8A0000007D96575B383D1C4524231F16365A56957D0000008594
          5E6032343B4142193C3531605C9484000000878E6D635D524043444340525F63
          6D8E870000008083786465666A6B556C68666564788480000000797A7CAC696E
          70767576706E69AD7C7B010000007E7E8093AE72717477737172AE93807E7E00