main.dfm

Windows的关闭显示器的设置时间好像最短是1分钟 而直接关显示器电源又怕伤显示器(是吗?:),于是写了这个程序

object Form1: TForm1
  Left = 232
  Top = 126
  BorderStyle = bsToolWindow
  Caption = '0'
  ClientHeight = 44
  ClientWidth = 109
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001003030000000000000A80E00001600000028000000300000006000
    00000100080000000000800A000000000000000000000001000000000000FFFF
    FF00FFFFF700E1FFFF00FFF7FF00FFFFEF00FFF7F700FFFFE600AEFFFD00FFF7
    EF00F7F5F200FFF7E700F7F7E700FFEBF900FFF7DE00B3F2FF00FFEFE700A5F5
    FC00FFF8D500F7EFE700C5EFF800F7E1FD00FFEFDE0099F2FD00F7EFDE00FFEF
    D600EBE7EC00F7EFD600FFE7DE00FFEFCE00F7E7DE006BEFFF00F8D4FF0086EA
    FD00FFE7D600FFEFC600B1E6F400F7E7D6009BE4FA00EFE7D400FFE7CE00F7E7
    CE00EFCFFF006BE7FF00FFE7C600F5D0F50073E4FD00F7E7C600F7DED600FEE9
    BB008CDEF800F7DECE00E7CDF500EFC6FF00F1FE8F006BDEFF00E7DFCE00FFDD
    C900E7C6FF007FDEF500EFDECB00F7DEC600A0D0FF006BDEF600FFDEBD00ECE3
    B900F7DEBD0085D5F700D1CCEC00E2F09D00E7BDFF0073D6F700F7D6C600FFDE
    B300F7DEB5006BD6F700EFD6C600E7D6C80063D5F700A4D1E700D4D5CC00F7D6
    BD00E1BDF600F7DEAD0088D1ED00EFD6BD0073D4EE00FFD6B60063D6EF00E6D6
    BC00F7D6B5006BD2EF007BCFEE00EFD6B400FADCA30085C6F800FFD5AD00F7D6
    AD00DFB5F500EFCEBD0063CEEF00E6FD5F00F7CEB500EFCEB50063CEE700DBCE
    B800E7CEB300F7CEAD00D6B3EE00EFCEAD0063C6EF0080C6E400FFCEA40071C6
    E700ECC6B900F7CEA500FFA6ED00EFCEA40063C6E70082BDEA00D6C6B800F7CE
    9C00EFC6AD00E7C6AD00FBC6A500F3D2900073BDE700EFC6A500D9C6AB00E7C6
    A50063BDE700D7FF3900C1ABE600F9C69C0073BDDE00EFC69C0078AFF300CDE2
    6F00E7C69C0062BDDE00D6FF3100CEFE3300CAEC5600E9BDA700D6FF2900F3C6
    8E00CEB8B600CEFF2900F1BD9C00C7F1450073B6D600E7BD9C00DDBF9A00C3F8
    3200D3BAA50073B6CE006BB2D6005CB5D500C4F82900EEBD8D00A8B1BE00FF87
    ED00EEB39B00BEEF3100599AFD006DADCE008CACC000DCB296006DADC500B4E9
    2F005DA8C900F0B083006BA5C700FF77E9004C8CFF0070A5BD00FF76DE00AADA
    32004E84FC00EDAF6D007984EC004284FF00619EBD00FF73D400ADA29500629C
    B500958EBC00E7A57000427BFF004F7BF400F0A56600427BF7007295AF00E7A5
    6300FA9183004273FF006394B0004273F7005A90AE004673EC00D1947700638C
    A5005A8CA5005A8C9C004768E90069879B008F819300FA816A005A849C005284
    9A005A8494008E8A75007267C200537B9400587B8B00FB715600647386005855
    C100517388004B3AEA00836D7100CE6A5B00FC6843003A29E9006F655F004736
    CA00FA5741003129E400576060003021E5004233B800FE542D00464782002F22
    CA003929B400FA482D00974B4700FF472100D5443400BF433500F2422000FF43
    1800291DAC002E219900F8371B00FF391000FF390800FF301000FF3108000000
    0000F02C1000D32C1500FF290800F2260800CD200C00B12110002F2618003C3C
    3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C
    323228322828282832242124211747473C3C3232322832323C322832323C3C3C
    3C323C28323C3C3C3C3C3C3C3C3C3C323232282828242828282424212421473C
    3C3C323228323228322E322832323C3C3C3C32322E323C3C3C3C3C3C3C3C3C32
    32283228282828242824212421243C473C323228323232323C323232323C3C3C
    3C323C2832323C3C3C3C3C3C3C3C3C323232282828242428242824212421473C
    3C323232323232323228322832323C3C3C3C323C283C3C3C3C3C323C3C3C3C32
    32322828282428242824212421243C3C3C32323228323232283228323232323C
    3C3C322828283C3C3C3C323C3C3C3C3232282828242424282424242124213C3C
    3C323232323232323228323C628097A6A6A6A6977A4B3C3C3C3C323C3C3C3232
    3232282428242121284B282424213C3C3C3232323232323232327A99694C3B37
    26374B99A6C7977A544B32323C3C3C3232282428243C699997C74B2421243C3C
    3C32323228323232546912000000000000000000013799C7A6A697997A665454
    54697A99977F4C1200A6322424213C3C323232323232323B1200000000000000
    0000000000000005264B697FA6A6A6A699694C1D0100000000A6242421243C3C
    3232322F3C664B00000000000000000000000000000000000000000000000000
    00000000000000000897242424213C3C3232326999990F000000000000000000
    000000000000000000000000000000000000000000000000374B242424243C3C
    3232170500000000000000000000000000000000000000000000000000000000
    00000000000000006924242424213C3232280000000000000000000000000000
    0000000000000000000000000000000000000000000000372824242424243232
    32280500000000000001050F242428240F010000000000000000000000000000
    0000000000001232241D24241D243232323228084C3208003799273232323232
    324B1200000000000000000000000000000000000001321D21241D2424243232
    32321B007F2F00003B8E282F283232322F4B7F12000000000000000000000000
    0000000005172421241D211D24242832322401267A1700004C99322832323232
    0800127700000000000000000000000000000112212421241D211D24241D3232
    281D007F4B0F000069A6992432283224000005A6000000000000000000000000
    004C975424212424211D241D24243228320F00A6320F00000069A62428323215
    000005A6010000000000000000000000001DA6C7A67F664B3B282424241D2832
    280800A6321D0000003BA62F3228320F000012A6050000000000000000000000
    0000001D697FA6C7A6A6A6C76924282824050BA6241B00000012C74B2432320A
    00003B7A050000000000000000000000000000000000000105080568661D2828
    2F0112C7240800000000A67F2F28320F00004B32050000000000000000000000
    00000000000000000000007A24242824280501C74B050000000069A62F322828
    080F3232050000000000000000000000000000000000000000000B4B24242828
    240800A67F000000000012C7542832323232322F010000000000000000000000
    000000000000000000004B2424242728240F001205000000000000A6A6322832
    323232240000000000000000000000000000000000000000003B242424242824
    280F0000000000000000001DC79932323232320F000000000000000000000000
    00000000000000001D24211D242424282401000000000000000000004CC7A64B
    32323212000000000000000000000000000000000000051D2821242424212421
    0F00000000000000000000000026A6C7A6974B00000000000000000000000000
    0000000000122428282424212424242808000000000000000000000000000126
    3B1200000000000000000000000000000000010F1D3232282828242421242124
    0000000000000000000000000000000000000000000000000000000000000026
    3B17243228322832282828242421242400000000000000000000000000000000
    00000000000000000000000000000026C7A66928323232322828282824242415
    0000000000000000000000000000000000000000000000000000000000000000
    0899C79954283228283228282824211500000000000000000000000000000000
    0000000000000000000000000000000000003BA6C7A67F4B4B28282828282421
    0A05010505080F15000000000000000000000000000000000000000000000000
    000000001D69A6C7A6A6542828282424272424282F2824241B01000000000000
    0000000000000000000000000000000000000000000000081D97322828282421
    24242832282F282F241B01000000000000000000000000000000000000000000
    000000000000000012322832282824242427242832282F242424240800000000
    0000000000000000000000000000000000000000000000172F28322832282424
    21242824283228282F2428241508000000000000000000000000000000000000
    00000000000524322832283228322424242724282428282F2832242824241508
    00000000000000000000000000000000000000000F2432323228322832282424
    242427242828322832243224282124211A0F0500000000000000000000000000
    00010F243C32323232322832283224242424242724282832283232282F242124
    212824240F080801050100010105080F243C3C3C3C3C3C3C3232322832322424
    242424242128282828322832282824212421282832282832282832283C3C3C3C
    3C3C3C3C3C3C3C3C3C3C32323C32212424242424282124273228322832282824
    212824322832322832323C3C3C3C3C503C473C3C3C3C3C3C473C3C3C32322424
    24242424242427242832283232323228282828283232323232323C3C3C3C413C
    504150413C3C41473C3C3C3C3C3C242424242424242824283228323232323232
    322828283232323C3C3C3C3C3C414150505050504141474147503C3C3C3C2424
    242424242828283228323C323C3C3C3C32322832323C3C3C3C3C3C3C47415041
    5050505050504150504B503C3C3C242424282428282832283232323C3C3C3C3C
    3C3C323232323C3C3C3C3C54415041505950595059505050505050543C3C0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000
    00000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF}
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = HotKey1Change
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 64
    Top = 0
    Width = 41
    Height = 21
    Caption = '&Close'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 0
    Top = 0
    Width = 57
    Height = 21
    TabOrder = 1
    Text = '0'
  end
  object HotKey1: THotKey
    Left = 0
    Top = 24
    Width = 105
    Height = 19
    HotKey = 49235
    Modifiers = [hkCtrl, hkAlt]
    TabOrder = 2
    OnChange = HotKey1Change
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 8
  end
end