main.~dfm

本代码实现在bmp中隐藏文件的功能

object Form1: TForm1
  Left = 248
  Top = 170
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'eulb'#39's   '#39764#27861'BMP'
  ClientHeight = 215
  ClientWidth = 388
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #38582#20070
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000003
    0000000000000000000000000000000030000000000000000000000000000000
    B30000000000000000000000000000000B300000000000000000000000000000
    0BB3000000000000000000000000000000BB3000000000000000000000000000
    00BBB300000000000000000000000000000BBB30000000000000000000000000
    000BBBB30000000000000000000000000000BBBB300000000000000000000000
    0000BBBBB3000000000000000000000000000BBBBB3000000000000000000000
    00000BBBBBB300000000000000000000000BBBBBBBBB30000000000000000000
    0000BBBBBB33330000000000000000000000BBBBBB3000000000000000000000
    00000BBBBBB30000000000000000000000000BBBBBBB30000000000000000000
    000000BBBBBBB3000000000000000000000000BBBBBBBB300000000000000000
    0000000BBBBBBBB300000000000000000000000BBBBBBBBB3000000000000000
    00000000BBBBBBBBB30000000000000000000000BBBBBBBBBB30000000000000
    000000000BBBBBBBBBB3000000000000000000000BBBBBBBBBBB300000000000
    0000000000BBBBBBBBBBB300000000000000000000BBBBBBBBBBBB3000000000
    00000000000BBBBBBBBBBBB3000000000000000000000000000000000000FFFF
    FFFFCFFFFFFFC7FFFFFFE3FFFFFFE1FFFFFFF0FFFFFFF07FFFFFF83FFFFFF81F
    FFFFFC0FFFFFFC07FFFFFE03FFFFFE01FFFFFF00FFFFFC007FFFFC003FFFFE00
    1FFFFE000FFFFF007FFFFF003FFFFF801FFFFF800FFFFFC007FFFFC003FFFFE0
    01FFFFE000FFFFF0007FFFF0003FFFF8001FFFF8000FFFFC0007FFFC0003}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 388
    Height = 196
    ActivePage = TabSheet2
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Style = tsFlatButtons
    TabIndex = 1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '   '#21387#20837'   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #40657#20307
      Font.Style = []
      ParentFont = False
      object sbPushStart: TSpeedButton
        Left = 48
        Top = 136
        Width = 89
        Height = 25
        Caption = #24320#22987#21387#20837
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #38582#20070
        Font.Style = []
        NumGlyphs = 2
        ParentFont = False
        OnClick = sbPushStartClick
      end
      object sbPushExit: TSpeedButton
        Left = 216
        Top = 136
        Width = 89
        Height = 25
        Caption = #36864#20986
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        OnClick = sbPushExitClick
      end
      object Gauge1: TGauge
        Left = 104
        Top = -8
        Width = 169
        Height = 17
        ForeColor = clBlue
        Progress = 0
      end
      object Bevel5: TBevel
        Left = 351
        Top = 97
        Width = 25
        Height = 33
      end
      object SpeedButton1: TSpeedButton
        Left = 352
        Top = 98
        Width = 23
        Height = 31
        Hint = #23494#30721#35774#32622
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
          333333333F777773FF333333008888800333333377333F3773F3333077870787
          7033333733337F33373F3308888707888803337F33337F33337F330777880887
          7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
          7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
          0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
          03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
          033333337F73FF737F33B33B778000877333333373F777337333333B30888880
          33333333373FFFF73333333B3300000333333333337777733333}
        Layout = blGlyphRight
        NumGlyphs = 2
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        OnClick = SpeedButton1Click
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 377
        Height = 89
        Caption = #25991#20214#36873#25321
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object sbPushBMPOpen: TSpeedButton
          Left = 349
          Top = 20
          Width = 23
          Height = 23
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
            07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
            0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
          OnClick = sbPushBMPOpenClick
        end
        object sbPushFileOpen: TSpeedButton
          Left = 349
          Top = 54
          Width = 23
          Height = 23
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
            07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
            0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
          OnClick = sbPushFileOpenClick
        end
        object Label6: TLabel
          Left = 8
          Top = 21
          Width = 56
          Height = 15
          Caption = 'BMP'#25991#20214
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #38582#20070
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 7
          Top = 56
          Width = 64
          Height = 15
          Caption = #38544#34255#25991#20214
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #38582#20070
          Font.Style = []
          ParentFont = False
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 97
        Width = 345
        Height = 33
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object cbCreateBMPBak: TCheckBox
          Left = 8
          Top = 8
          Width = 145
          Height = 17
          Hint = #22791#20221#25991#20214#23558#20197'"'#21407#22270#29255#21517'.bak"'#20445#23384#22312#21407#22270#29255#25152#22312#36335#24452
          Caption = #20026'BMP'#21019#24314#22791#20221
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object cbDelAftHide: TCheckBox
          Left = 176
          Top = 8
          Width = 153
          Height = 17
          Hint = #27492#36873#39033#23558#22312#21387#20837#25805#20316#21518#21024#38500#38544#34255#25991#20214
          Caption = #38544#34255#21518#21024#38500#21407#25991#20214
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
      end
      object stPushBMP: TStaticText
        Left = 72
        Top = 20
        Width = 273
        Height = 20
        AutoSize = False
        BevelInner = bvLowered
        BorderStyle = sbsSunken
        Caption = 'D:\temp\sd.bmp'
        Font.Charset = DEFAULT_CHARSET