main.~dfm

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

        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
      end
      object stPushFile: TStaticText
        Left = 72
        Top = 55
        Width = 273
        Height = 20
        AutoSize = False
        BorderStyle = sbsSunken
        Caption = 'D:\temp\ma.exe'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = '   '#25552#21462'   '
      ImageIndex = 1
      object sbExtractStart: TSpeedButton
        Left = 48
        Top = 136
        Width = 89
        Height = 25
        Caption = #24320#22987#25552#21462
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        OnClick = sbExtractStartClick
      end
      object sbExtractExit: TSpeedButton
        Left = 216
        Top = 136
        Width = 89
        Height = 25
        Caption = #36864#20986
        Flat = True
        OnClick = sbPushExitClick
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 377
        Height = 57
        Caption = #25991#20214#36873#25321
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 21
          Width = 56
          Height = 15
          Caption = 'BMP'#25991#20214
        end
        object sbExtractOpen: 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 = sbExtractOpenClick
        end
      end
      object stExtractBMP: TStaticText
        Left = 72
        Top = 20
        Width = 273
        Height = 20
        AutoSize = False
        BorderStyle = sbsSunken
        Caption = 'D:\temp\sd.bmp'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 64
        Width = 377
        Height = 65
        Caption = #25552#21462#25991#20214#21518#36827#34892#22914#19979#25805#20316
        TabOrder = 2
        object rbDefault: TRadioButton
          Left = 8
          Top = 16
          Width = 145
          Height = 17
          Hint = #35813#36873#39033#23558#36830#21516#20854#20013#30340#38544#34255#25991#20214#20445#30041'BMP'#25991#20214
          Caption = #20445#30041'BMP'#25991#20214
          Checked = True
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          TabStop = True
        end
        object rbEraseHideFile: TRadioButton
          Left = 8
          Top = 40
          Width = 145
          Height = 17
          Hint = #35813#36873#39033#23558#20445#30041'BMP'#25991#20214','#20294#20250#38144#27585#20854#20013#38544#34255#30340#25991#20214
          Caption = #38144#27585#38544#34255#25991#20214
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object rbDelBMP: TRadioButton
          Left = 216
          Top = 16
          Width = 145
          Height = 17
          Caption = #21024#38500'BMP'#25991#20214
          TabOrder = 2
        end
      end
      object plExtractPsw: TPanel
        Left = 48
        Top = 40
        Width = 313
        Height = 97
        TabOrder = 3
        Visible = False
        object sbExtractPswOK: TSpeedButton
          Left = 48
          Top = 64
          Width = 89
          Height = 25
          Caption = #30830#23450
          Flat = True
          OnClick = sbExtractPswOKClick
        end
        object sbExtractPswExit: TSpeedButton
          Left = 176
          Top = 64
          Width = 89
          Height = 25
          Caption = #21462#28040
          Flat = True
          OnClick = sbExtractPswExitClick
        end
        object GroupBox5: TGroupBox
          Left = 8
          Top = 8
          Width = 297
          Height = 49
          Caption = #35831#36755#20837#23494#30721
          TabOrder = 0
          object editExtractPsw: TEdit
            Left = 8
            Top = 16
            Width = 281
            Height = 23
            PasswordChar = '*'
            TabOrder = 0
            OnKeyPress = editExtractPswKeyPress
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '   '#20851#20110'   '
      ImageIndex = 2
      object Label3: TLabel
        Left = 0
        Top = 0
        Width = 380
        Height = 163
        Align = alClient
        AutoSize = False
        Color = clInfoText
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNone
        Font.Height = -15
        Font.Name = #38582#20070
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Image1: TImage
        Left = 32
        Top = 152
        Width = 54
        Height = 69
        IncrementalDisplay = True
        Picture.Data = {
          0A544A504547496D616765D10E0000FFD8FFE000104A46494600010100000100
          010000FFDB0043000B08080A08070B0A090A0D0C0B0D111C12110F0F1122191A
          141C29242B2A282427272D3240372D303D302727384C393D43454849482B364F
          554E465440474845FFDB0043010C0D0D110F1121121221452E272E4545454545
          4545454545454545454545454545454545454545454545454545454545454545
          45454545454545454545454545FFC0001108012C019003012200021101031101
          FFC4001F0000010501010101010100000000000000000102030405060708090A
          0BFFC400B5100002010303020403050504040000017D01020300041105122131
          410613516107227114328191A1082342B1C11552D1F02433627282090A161718
          191A25262728292A3435363738393A434445464748494A535455565758595A63
          6465666768696A737475767778797A838485868788898A92939495969798999A
          A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
          D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
          01010101010101010000000000000102030405060708090A0BFFC400B5110002
          0102040403040705040400010277000102031104052131061241510761711322
          328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
          292A35363738393A434445464748494A535455565758595A636465666768696A
          737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
          A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
          E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00CFB6
          B29126021DEA0B05DC30BC2823185FAD6BBE98A21866B89A4D810990B39F947A
          9E69DA40F36D55F8C99587FE3C6B84F14788A7D5EFDED9242B636EC638A34270
          F83F7DBD49ACA95382A6B4DCDAB549CAA3D76282DFCF3DDBB5C6A1730404B15D
          85988E780067F9D487539D370B7D52F863FE7A375FC8D673ABE0970C3DCA9A6A
          2336DDA3716EC39AAE48F623DA4BB9E91E1E9ECB5AD1A1825BBCEA9171246F29
          56907F7873CF6ADAB9D21ADD18412499538C063E99F5AF239236882EE474C720
          952067DBDEBD27C05E229F555B8B1BC6F3258A10E9211C900E307DF9EB54A10E
          C4B9CFB977C35BE2F1A5B79B1B0662E30769DBB909EBD7F87F5AF4EAE0F4F441
          E35B63C6E3C8FF00BE1ABBCACA941439A2BBFE88DAB4DCF964FB7EAC28A28AD8
          C028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A
          0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A0028A28A
          0028A28A0028A28A0028A28A0028A28A00F34B731D9E937B3F052DD9A43EE064
          9AF38F085B457FE28B18A58CBA3397283D813CFB57A3E930FDA343BE824E4B07
          CE7BFCC6B2FC21E1C3A0F8A1CB48250F65E6427A6C0CD8C1F7E3F235117FBB5E
          85C97EF1FA9DCBD8DBAA82618CF1D0A0354974DB3B772F0DB43113D76201556E
          3C4F2437EB6860B69DDD982F9323A13B4E0E37A8071DF9C55EBE9DED6DFCDFB3
          C9231E9182AA7F127818AC657378331BC43611DDE9373118964628590639C819
          E2B9AF860424F7AE571F320DDED8391FA835BB63AE4FA95FA218EDA240E57CB2
          252E4A9C37CC405E33C8AAFE15D1BFB3E4BF98173F6890B05E36AAEE38C0F5EB
          5AD2D1D99956D7546EDA43FF0015B5931EAA0FFE80F5DDD7056926EF19E9AE38
          DFB811FF0000735DED10F8A5EBFA20A9F0C7D3F5614514568641451450014514
          5001451450014514500145145001451450014514500145145001451450014514
          5001451450014514500145145001451450014514500145145001451450014514
          500145145001451450079DF87733DBCE181CB2B8C7E26A4B3BBB38F58D3D5A7F
          F4B36ECA6165FBF1F7607F0E9F5A3C3322B4C4A72A6564C03DF278AE27ED33CF
          E3696FECF6343A4B8DCCED85F2C36D23FE0458802A22AF4E3E85C9B5525EA7A9
          CD1472C8A6650F8F9724751E9506A7863192323D08AB4ED1AC5E67CCCA071B54
          B123E83A9AC2BDBD81E54C5BDD90AF951E531C1F7FAF6AC646F0BB2D36C8F738
          45538C923D07354F47481B4F1756CC5A29FE6463C6E1EB8ED939FCAA0F105D88
          34C9A357D924C86352064A03C16C7B0FE758DE07D5B6DABE8974C04D6E4B407F
          BE87923EA339FA1F6AD68AB6A675DF44745A4461FC5364E7AC6580FF00BE5EBB
          DAF3CD358C7E33D3E3046199B3FF007C3D7A1D38FC52F5FD10A7F0C7D3F56145
          1455990514514005145140051451400514514005145140051451400514514005
          1451400514514005145140051451400514514005145140051451400514514005
          145140051451400514514005145140051451401E11A76BD3687ABEB568B19747
          773195FF0096727639F4C75FA0AD2F0369505FE8FACC323126E2511161D70A32