fir.dfm

一个用delphi写的安装程序. 涉及到的知识: 1.注册表的使用 2.资源文件的制作,使用 3.多线程中api播放wav 4.快捷方式

        BevelOuter = bvNone
        Color = clBlue
        TabOrder = 0
        object Label1: TLabel
          Left = 136
          Top = 8
          Width = 65
          Height = 17
          AutoSize = False
          Caption = #20351#29992#22768#26126
        end
        object Memo1: TMemo
          Left = 8
          Top = 24
          Width = 345
          Height = 121
          Color = clBlue
          Lines.Strings = (
            '         '#20351#29992#22768#26126
            ''
            '  '#23433#35013#31243#24207#28436#31034
            ''
            '  '#27492#20363#28436#31034#23433#35013#31243#24207#30340#21046#20316'.'#20027#35201#29992#21040#30340#26159#36164#28304#25991#20214#30340#21046#20316#21644
            #20351#29992'.'
            ''
            '  '#22914#26524#21916#27426','#20320#21487#20197#33258#30001#20256#25773#26412#23454#20363','#20063#21487#20197#38543#24847#20462#25913'.'
            ''
            '  '#30772#22825#24778#24037#20316#23460
            '  2.4.2004')
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object chky: TCheckBox
          Left = 120
          Top = 152
          Width = 81
          Height = 17
          Caption = #21516#24847#22768#26126
          TabOrder = 1
          OnClick = chkyClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pb'
      object pnl2: TPanel
        Left = 0
        Top = 0
        Width = 361
        Height = 169
        BevelOuter = bvNone
        Color = clBlue
        TabOrder = 0
        object lbltit2: TLabel
          Left = 112
          Top = 8
          Width = 113
          Height = 17
          AutoSize = False
          Caption = #27426#36814#20351#29992#26412#36719#20214
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lblpath: TLabel
          Left = 8
          Top = 112
          Width = 89
          Height = 13
          AutoSize = False
          Caption = #36873#25321#23433#35013#36335#24452':'
        end
        object edtpath: TEdit
          Left = 8
          Top = 128
          Width = 257
          Height = 21
          Color = clBlue
          TabOrder = 0
          Text = 'c:\tresss'
          OnChange = edtpathChange
        end
        object btnpath: TButton
          Left = 272
          Top = 128
          Width = 81
          Height = 25
          Caption = #26356#25913#36335#24452'...'
          TabOrder = 1
          OnClick = btnpathClick
        end
        object gbsome: TGroupBox
          Left = 8
          Top = 32
          Width = 345
          Height = 65
          Caption = #36873#25321#23433#35013#32452#20214
          TabOrder = 2
          object chbdemo: TCheckBox
            Left = 24
            Top = 16
            Width = 97
            Height = 17
            Caption = #31070#22855#21160#30011
            Checked = True
            Enabled = False
            State = cbChecked
            TabOrder = 0
          end
          object chbprogram: TCheckBox
            Left = 24
            Top = 40
            Width = 113
            Height = 17
            Caption = #32534#31243#22823#24072'('#25991#26723')'
            Checked = True
            State = cbChecked
            TabOrder = 1
            OnClick = chbprogramClick
          end
          object chbpascal: TCheckBox
            Left = 136
            Top = 40
            Width = 121
            Height = 17
            Caption = 'pascal'#31934#35201'('#30005#23376#20070')'
            Checked = True
            State = cbChecked
            TabOrder = 2
            OnClick = chbpascalClick
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pc'
      object pnl3: TPanel
        Left = 0
        Top = 0
        Width = 361
        Height = 169
        BevelOuter = bvNone
        Color = clBlue
        TabOrder = 0
        object Label2: TLabel
          Left = 128
          Top = 8
          Width = 105
          Height = 17
          AutoSize = False
          Caption = #22522#26412#20449#24687#35774#32622
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object chbdesktop: TCheckBox
          Left = 8
          Top = 56
          Width = 137
          Height = 17
          Caption = #21019#24314#26700#38754#24555#25463#26041#24335
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = chbdesktopClick
        end
        object chbstart: TCheckBox
          Left = 8
          Top = 96
          Width = 169
          Height = 17
          Caption = #21019#24314'"'#24320#22987'"'#33756#21333#24555#25463#26041#24335
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = chbstartClick
        end
        object chbautostart: TCheckBox
          Left = 184
          Top = 56
          Width = 137
          Height = 17
          Caption = #35774#32622#38543#26426#21551#21160
          TabOrder = 2
          OnClick = chbautostartClick
        end
        object chbrun: TCheckBox
          Left = 184
          Top = 96
          Width = 169
          Height = 17
          Caption = #23433#35013#23436#25104','#33258#21160#36816#34892#36719#20214
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = chbrunClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pd'
      object pnl4: TPanel
        Left = 0
        Top = 0
        Width = 361
        Height = 169
        BevelOuter = bvNone
        Color = clBlue
        TabOrder = 0
        object Label3: TLabel
          Left = 152
          Top = 8
          Width = 73
          Height = 17
          AutoSize = False
          Caption = #20934#22791#23433#35013
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clLime
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object mmoinfo: TMemo
          Left = 8
          Top = 32
          Width = 345
          Height = 137
          Color = clBlue
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
  end
end