unit1.dfm

Example of using unrar lib (unrar.dll not included!). Delphi 7

object Form1: TForm1
  Left = 396
  Top = 160
  Width = 247
  Height = 450
  Caption = 'UnRAR'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    231
    414)
  PixelsPerInch = 96
  TextHeight = 13
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 384
    Width = 215
    Height = 9
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 0
  end
  object JvFilenameEdit1: TJvFilenameEdit
    Left = 0
    Top = 0
    Width = 231
    Height = 21
    Align = alTop
    AddQuotes = False
    Filter = 'RAR files|*.rar|All files (*.*)|*.*'
    TabOrder = 1
    OnChange = AcListArcExecute
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 59
    Width = 231
    Height = 84
    Align = alTop
    Caption = 'ArcInfo'
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 36
      Height = 13
      Caption = 'Locked'
    end
    object Label2: TLabel
      Left = 8
      Top = 16
      Width = 23
      Height = 13
      Caption = 'Solid'
    end
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 59
      Height = 13
      Caption = 'New naming'
    end
    object Label4: TLabel
      Left = 8
      Top = 64
      Width = 55
      Height = 13
      Caption = 'Authenticity'
    end
    object Label5: TLabel
      Left = 120
      Top = 16
      Width = 46
      Height = 13
      Caption = 'Recovery'
    end
    object Label6: TLabel
      Left = 120
      Top = 32
      Width = 63
      Height = 13
      Caption = 'Encr.headers'
    end
    object Label7: TLabel
      Left = 120
      Top = 64
      Width = 56
      Height = 13
      Caption = 'First volume'
    end
    object Label8: TLabel
      Left = 120
      Top = 48
      Width = 35
      Height = 13
      Caption = 'Volume'
    end
    object StaticText1: TStaticText
      Left = 192
      Top = 48
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object StaticText2: TStaticText
      Left = 80
      Top = 32
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object StaticText3: TStaticText
      Left = 80
      Top = 16
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object StaticText4: TStaticText
      Left = 80
      Top = 48
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object StaticText5: TStaticText
      Left = 80
      Top = 64
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object StaticText6: TStaticText
      Left = 192
      Top = 16
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
    object StaticText7: TStaticText
      Left = 192
      Top = 32
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object StaticText8: TStaticText
      Left = 192
      Top = 64
      Width = 28
      Height = 16
      Alignment = taCenter
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 395
    Width = 231
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 143
    Width = 231
    Height = 81
    Align = alTop
    Caption = 'Comment'
    TabOrder = 4
    Visible = False
    object Memo2: TMemo
      Left = 2
      Top = 15
      Width = 227
      Height = 64
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 224
    Width = 231
    Height = 171
    Align = alClient
    Caption = 'Filelist'
    TabOrder = 5
    object SG: TJvStringGrid
      Left = 2
      Top = 15
      Width = 227
      Height = 154
      Align = alClient
      ColCount = 3
      DefaultRowHeight = 17
      FixedCols = 0
      RowCount = 2
      TabOrder = 0
      Alignment = taLeftJustify
      FixedFont.Charset = DEFAULT_CHARSET
      FixedFont.Color = clWindowText
      FixedFont.Height = -11
      FixedFont.Name = 'MS Sans Serif'
      FixedFont.Style = []
    end
  end
  object GroupBox4: TGroupBox
    Left = 0
    Top = 21
    Width = 231
    Height = 38
    Align = alTop
    Caption = 'Mode'
    TabOrder = 6
    object RB1: TRadioButton
      Left = 7
      Top = 16
      Width = 55
      Height = 17
      Caption = 'Extract'
      TabOrder = 0
    end
    object RB2: TRadioButton
      Left = 63
      Top = 16
      Width = 55
      Height = 17
      Caption = 'Test'
      TabOrder = 1
    end
    object RB3: TRadioButton
      Left = 119
      Top = 16
      Width = 55
      Height = 17
      Caption = 'View'
      Checked = True
      TabOrder = 2
      TabStop = True
    end
    object DoIt: TButton
      Left = 178
      Top = 8
      Width = 43
      Height = 25
      Action = Action1
      TabOrder = 3
    end
  end
  object ActionList1: TActionList
    Left = 24
    Top = 288
    object Action1: TAction
      Caption = '&Do it!'
      OnExecute = Action1Execute
    end
    object AcListArc: TAction
      Caption = 'AcListArc'
      OnExecute = AcListArcExecute
    end
    object AcSortGrid: TAction
      Caption = 'AcSortGrid'
    end
  end
  object JvSelectDirectory1: TJvSelectDirectory
    Left = 56
    Top = 288
  end
end