unit1.dfm

一个很方便的RAR解压/压缩的控件 delphi

object Form1: TForm1
  Left = 269
  Top = 184
  BorderStyle = bsDialog
  Caption = 'RAR'#21387#32553#27979#35797
  ClientHeight = 310
  ClientWidth = 486
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pgc1: TPageControl
    Left = 8
    Top = 0
    Width = 473
    Height = 289
    ActivePage = ts2
    TabOrder = 0
    object ts1: TTabSheet
      Caption = #21387#32553
      object lbl1: TLabel
        Left = 6
        Top = 20
        Width = 84
        Height = 12
        Caption = #23558#25991#20214#21387#32553#21040#65306
      end
      object lbl2: TLabel
        Left = 16
        Top = 48
        Width = 96
        Height = 12
        Caption = #35201#21387#32553#21738#20123#25991#20214#65306
      end
      object edt1: TEdit
        Left = 110
        Top = 16
        Width = 291
        Height = 20
        TabOrder = 1
        Text = 'C:\OBRARTest.rar'
      end
      object mmo1: TMemo
        Left = 16
        Top = 72
        Width = 441
        Height = 145
        Lines.Strings = (
          'C:\Windows\System32\Shell32.dll'
          'C:\WINNT\system\*'
          'C:\WINNT\*.log'
          'C:\WINNT\Web'
          
            'C:\Documents and Settings\Administrator\My Documents\My Pictures' +
            '\'#26679#21697'.jpg')
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object btn1: TButton
        Left = 368
        Top = 232
        Width = 75
        Height = 25
        Caption = #21387#32553'(&R)'
        TabOrder = 5
        OnClick = btn1Click
      end
      object btn3: TButton
        Left = 408
        Top = 13
        Width = 23
        Height = 24
        Caption = '...'
        TabOrder = 0
        OnClick = btn3Click
      end
      object btn5: TButton
        Left = 256
        Top = 232
        Width = 106
        Height = 25
        Caption = #28155#21152#21387#32553#25991#20214' &A'
        TabOrder = 4
        OnClick = btn5Click
      end
      object btn6: TButton
        Left = 145
        Top = 232
        Width = 113
        Height = 25
        Caption = #28165#31354#25991#20214#21015#34920'&C'
        TabOrder = 3
        OnClick = btn6Click
      end
    end
    object ts2: TTabSheet
      Caption = #35299#21387#32553
      ImageIndex = 1
      object lbl4: TLabel
        Left = 16
        Top = 12
        Width = 84
        Height = 12
        Caption = #23558#25991#20214#21387#32553#21040#65306
      end
      object lbl5: TLabel
        Left = 16
        Top = 36
        Width = 84
        Height = 12
        Caption = #23558#25991#20214#21387#32553#21040#65306
      end
      object edt2: TEdit
        Left = 120
        Top = 8
        Width = 289
        Height = 20
        TabOrder = 1
        Text = 'C:\OBRARTest.rar'
      end
      object edt3: TEdit
        Left = 120
        Top = 32
        Width = 329
        Height = 20
        TabOrder = 2
        Text = 'C:\TestRAR'
      end
      object btn2: TButton
        Left = 376
        Top = 64
        Width = 75
        Height = 25
        Caption = #35299#21387#32553'(&U)'
        TabOrder = 3
        OnClick = btn2Click
      end
      object btn4: TButton
        Left = 415
        Top = 6
        Width = 23
        Height = 24
        Caption = '...'
        TabOrder = 0
        OnClick = btn4Click
      end
    end
  end
  object pnl1: TPanel
    Left = 0
    Top = 294
    Width = 486
    Height = 16
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object lbl3: TLabel
      Left = 0
      Top = 0
      Width = 36
      Height = 16
      Align = alLeft
      Alignment = taCenter
      Caption = #36827#24230#65306
      Layout = tlCenter
    end
    object pb1: TProgressBar
      Left = 36
      Top = 0
      Width = 450
      Height = 16
      Align = alClient
      TabOrder = 0
    end
  end
  object OBRARCompress1: TOBRARCompress
    CompressLevel = 3
    OnCompressing = OBRARCompress1Compressing
    Left = 224
    Top = 136
  end
  object dlgSave1: TSaveDialog
    Filter = 'RAR'#25991#20214'|*.rar'
    Left = 232
    Top = 160
  end
  object dlgOpen1: TOpenDialog
    Filter = 'RAR'#25991#20214'|*.rar'
    Left = 192
    Top = 168
  end
end