unit1.dfm

限制客户机运行程序 (有关机等功能)

object Form1: TForm1
  Left = 283
  Top = 185
  AutoScroll = False
  BorderIcons = []
  Caption = #38480#21046#36816#34892#31243#24207#26381#21153#22120
  ClientHeight = 424
  ClientWidth = 572
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = bsSkinMainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 405
    Width = 572
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 90
      end
      item
        Width = 150
      end
      item
        Width = 130
      end>
    SimplePanel = False
  end
  object bsSkinMainMenuBar1: TbsSkinMainMenuBar
    Left = 0
    Top = 0
    Width = 572
    Height = 22
    TabOrder = 1
    SkinData = bsSkinData1
    SkinDataName = 'mainmenubar'
    ScrollMenu = True
    UseSkinFont = True
    DefItemFont.Charset = DEFAULT_CHARSET
    DefItemFont.Color = clBtnText
    DefItemFont.Height = 12
    DefItemFont.Name = #23435#20307
    DefItemFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 22
    PopupToUp = False
    BusinessSkinForm = bsBusinessSkinForm1
    MainMenu = bsSkinMainMenu1
    Align = alTop
  end
  object ListBox1: TListBox
    Left = 448
    Top = 24
    Width = 121
    Height = 97
    ItemHeight = 13
    TabOrder = 2
    Visible = False
  end
  object OnlineUserlist: TListView
    Left = 0
    Top = 22
    Width = 329
    Height = 383
    Align = alLeft
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clTeal
    Columns = <
      item
        Caption = '#'
        Width = 40
      end
      item
        Caption = #26426#22120#21517
        Width = 100
      end
      item
        Caption = #26426#22120'IP'
        Width = 90
      end
      item
        Caption = #29992#25143#31471#21475
        Width = 70
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FlatScrollBars = True
    GridLines = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    PopupMenu = bsSkinPopupMenu2
    TabOrder = 3
    ViewStyle = vsReport
    OnDblClick = OnlineUserlistDblClick
  end
  object ListBox2: TListBox
    Left = 328
    Top = 22
    Width = 244
    Height = 383
    Align = alRight
    Color = clBtnText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    PopupMenu = bsSkinPopupMenu1
    TabOrder = 4
    OnDblClick = ListBox2DblClick
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 9000
    ServerType = stNonBlocking
    ThreadCacheSize = 1000
    OnListen = ServerSocketListen
    OnAccept = ServerSocketAccept
    OnGetSocket = ServerSocketGetSocket
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 152
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 184
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    HideCaptionButtons = False
    AlwaysShowInTray = False
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    ShowObjectHint = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 12
    DefCaptionFont.Name = #23435#20307
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 12
    DefInActiveCaptionFont.Name = #23435#20307
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 12
    DefMenuItemFont.Name = #23435#20307
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SkinData = bsSkinData1
    MinHeight = 0
    MinWidth = 0
    Magnetic = False
    MagneticSize = 5
    BorderIcons = [biSystemMenu, biMinimize, biRollUp]
    Left = 56
  end
  object bsSkinData1: TbsSkinData
    CompressedStoredSkin = bsCompressedStoredSkin1
    Left = 88
  end
  object bsCompressedStoredSkin1: TbsCompressedStoredSkin
    FileName = 'skin.ini'
    Left = 120
    CompressedData = {
      78DAEDBD7F6C1B4796275E0AF68BF391624E0A349047063CA3F160B209383B22
      2952A2600D2EF265B3A338CEAC32B31B29DF1120CB52ACD0B234A6FC9348A8A3
      0C9FA073328C610890D7991DE50B1B561065BF8A610F3459E76C6647DE99A115
      8D0C780FF4D87B807011B0024697D3E28CBBFCA17BAFAABBD9BF4856931445D1
      F5DC2D37ABAABBABDEA75E55BD57AFAACB0850CB4BBEFF4C28F9FE84903F85FF
      FF2B9CBF80B38C6C6311FF89907F78929D1048697D7D9DFEBF184A90D9DE5A12
      6CED25BDFEED64361023B3C31D6469B28DACAF24482C16234B4B4B24914890A9
      A92992985A22D1B609129B1A251D1D1DA4A2A28244870364767696C4475B486F
      AB9F4C756C23B3D15932DB1A25131313A4A5A585F86B2BC84CC04F62D15E321A
      EC25136DDBC81ABC63627892ACC746C964D04FA21D7E323BDA4B621341B2188F
      91C59951B234D14AE2F03B115D228140800CB76C2389501B999D1C26C3C3C3A4
      C5F30C599CE825C3BD21B2321924EBF151B208CF48CC46C9627492444747A14C
      7EB238EC218B9301928841397A67C8ECD404D9BE7D3BA9ADD84666460324D881
      F9AE80F059321382BC840264B2E3199288CFC27D13646D224486DBE05D53F0DE
      5008DE3303EF982071483B1BF49004A40DB605E17C86C44271286707595B5B23
      6B4B6B64223801E12D909F18999C9C24ADCF002F4233642A3445D6A7A2C08F36
      321A6823B160882426DA489BFF19B2321120A31DA3646D7698AC27A6C80AE471
      05F9141D050C826425BE4602BD1D640ADEBD38B508CF6B817471C87714D24D90
      8950071986672E8E26486F0760DB0AF96BD90E18B591783C4ED697126429B144
      666666C8D2CC0A601822B1D918F0B905F2EA27F1689C4C41B95B5B5B89FF995A
      780F3C7F26402646E1D9C0CFD98961B86F94AC4FB692603048465B6B49AB1FF0
      1D6E019C01FBC919F20CDC371305BE055A81E7CF90F8641CF205D82CC6C9DAE2
      2C9463127808750A9E1D8772843A42804390C4871781576D64323045026D1D64
      069E35333A0365077ECD02A601E417F062224AA6A2C31007BC86E7045B3D642D
      01FC1E0D925928D71AF0636566924C615EE353500F3CC0E338E005751CEE494C
      F69295951592985922131DF0DC5EC073264AE250B727877BA18CB324D61125AD
      507FA7A07EAE4F419E20AFD10060B9B808F57218EA1ED4CDC925120AF492682B
      D44DE0EF0AC84F1CEB496018DE8F7565822CCD8E9268340AEF6E21B35067E293
      21C8D30A595A5C82FF01878E18BC1BE56A827840563CB5DB88673B01FE0548A8
      B795C466A0EE40FE17214DB4D703B202756E06EBE2308942BD594FCC401D6F25
      8900F2D143E57B6D691DF8D706756A11B09C847A550BE776D2810F6654563244
      54F4D45365559192A0AAB2A79E4A16EBD6ADB2F612A1B25BB7A482C5A058B74A
      A71E42619E8A496841B9222542582E8A182D5649D5435630A95CF61221B95CAC
      58A586D7ADA7E47295165EC972951A5E65A58957595969E285E51A002A1DBCB0
      34B45C030389C4DF970E5E7F9F4840C1CACAB058BF682F1DBCDA7F8105837201
      5AF8B354F0B2DB11B1B2B2DE042D66C9E0857F12BD502E56CC92C18BFEC572D9
      4B0F2FBBC04BE025F0127809BC045E022F8197C04BE025F0127809BC045E022F
      8197C04BE025F0127809BC045E022F8197C04BE025F0127809BC045E022F8197
      C04BE025F0127809BC045E022F8197C04BE025F0127809BC045E022F8197C04B
      E025F0127809BC045E022F8197C04BE025F0127809BC045E022F8197C04BE025
      F0127809BC045E022F8197C04BE025F0127809BC045E022F8197C04BE025F012
      7809BC045E022F8197C04BE05560BCAE94225E57A05CA588D795D2C5EBAD52C4
      EB2D285729E205E51A2F45BCC6A15C7F597A78FD25946B6868AED4F09A1B1AC2
      729DFDEFA585D77F3F8BE51A8782CD95125E7350AC715AAEA1A1BF2C1DBCFE12
      CB03E57A6B7C1CFF2F19BCB034E3D87FBDF516FDBF54084BF31694E7CA95B7F0
      FF92F98E2A96E60A8E0F29958E7C49E551FE2F1592CBD3DBDB8BFFC791BEFDB3
      CF817EF6EDB84C86003D9D70E4A3F6384EE81E9B392372C0DF3CD07D47150A03
      45A2E5C2FF5F78E185F8FCE7DDDFF88BBFF846F7E7F3F1175E300B30D0DFD444
      AA92642BE76FB7CA6DAA1B23357FA37E6AE68CA802B459A892CBA32AD7FCDFFD
      320A5417FDE5DFCDD3BB0D017A3A505355156E0FD3B3AA6AC15A8BBC50A5BAB9
      E680EAB19933A20EF89B9A74E5825EECC427153B6F8E8FDFDC59F1C909E8038C
      017AEAAEA9B20146E5F4B42D945BA405D5CD5535DDCA633367441B7000B32193
      B15C27A215375F1CBC7E7DF0C59B15D113E326013AFABB4E7C50E7539DF40C97
      5BA6B072333EE7EFE4E766CE882E8065C4BC5C5FFBDA9E2F76FA47068146FC3B
      BFD833F4B52129202407E8089E1656D14216A4BE1F0AC69E3B942A23A9035459
      3196ABAEA2E7AB9191279F7C72E4AB9E8ABAF1AF8DB3805028240568E984231C
      2E27E5F4CCA95CCA431C27E883E97B3FDC3E32F2ADF734193916D2E46CFBB746
      46A6BBA49C6166B4E562DFBDED2D3B73A6E2F7BF753AA11421A7F3B7BFAFB879
      E6A6121062011A82272D6043414F3DEF7989DEA83C040A864FA6EFED0AC1714A
      9D91D1CAD06BEA9C9DFAEEFFFF5AE8AFE59CD1EC2095F56ABF0F0BE57AFAEB4F
      3C81A578E289AF3F5DF1EA99576900231AA0A67F74E0431CCF39E89953B9540F