unit1.dfm

这是一个用Delphi7开发的Windows下的压缩我解压缩源码。大小为1.46Ｍ。

object Form1: TForm1
  Left = 253
  Top = 152
  Width = 635
  Height = 500
  Caption = #25991#20214#21152#23494#21387#32553#35299#21387#32553#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 55
    Width = 627
    Height = 399
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object ScrollBox1: TScrollBox
      Left = 0
      Top = 0
      Width = 169
      Height = 395
      Align = alLeft
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clWhite
      ParentColor = False
      TabOrder = 0
      object ShellTreeView1: TShellTreeView
        Left = 0
        Top = 0
        Width = 165
        Height = 391
        AutoContextMenus = False
        ObjectTypes = [otFolders]
        Root = 'rfMyComputer'
        ShellListView = ShellListView1
        UseShellImages = True
        Align = alClient
        AutoRefresh = False
        BorderStyle = bsNone
        Ctl3D = False
        Indent = 19
        ParentColor = False
        ParentCtl3D = False
        RightClickSelect = True
        ShowRoot = False
        TabOrder = 0
      end
    end
    object ShellListView1: TShellListView
      Left = 169
      Top = 0
      Width = 454
      Height = 395
      AutoContextMenus = False
      ObjectTypes = [otFolders, otNonFolders]
      Root = 'rfMyComputer'
      ShellTreeView = ShellTreeView1
      Sorted = True
      Align = alClient
      OnClick = ShellListView1Click
      ReadOnly = False
      HideSelection = False
      OnMouseDown = ShellListView1MouseDown
      PopupMenu = PopupMenu1
      TabOrder = 1
      ViewStyle = vsSmallIcon
    end
  end
  object SB: TStatusBar
    Left = 0
    Top = 454
    Width = 627
    Height = 19
    AutoHint = True
    Panels = <
      item
        Text = #25216#26415#25903#25345':'
        Width = 200
      end
      item
        Width = 80
      end
      item
        Width = 200
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 627
    Height = 55
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    TabOrder = 2
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 571
      Height = 55
      Align = alClient
      AutoSize = True
      ButtonHeight = 51
      ButtonWidth = 39
      Caption = 'ToolBar1'
      Flat = True
      HotImages = ImageList2
      Images = ImageList3
      ShowCaptions = True
      TabOrder = 0
      object ToolButton2: TToolButton
        Left = 0
        Top = 0
        Caption = #21047' '#26032
        ImageIndex = 1
        OnClick = R2Click
      end
      object ToolButton4: TToolButton
        Left = 39
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 47
        Top = 0
        Caption = #21387' '#32553
        ImageIndex = 0
        OnClick = N6Click
      end
      object ToolButton5: TToolButton
        Left = 86
        Top = 0
        Caption = #35299' '#21387
        ImageIndex = 3
        OnClick = N10Click
      end
      object ToolButton6: TToolButton
        Left = 125
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 133
        Top = 0
        Caption = #20851' '#20110
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton7: TToolButton
        Left = 172
        Top = 0
        Caption = #36864' '#20986
        ImageIndex = 4
        OnClick = exitClick
      end
    end
    object Panel3: TPanel
      Left = 571
      Top = 0
      Width = 56
      Height = 55
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 56
        Height = 2
        Align = alTop
        Shape = bsTopLine
      end
      object Bevel2: TBevel
        Left = 0
        Top = 2
        Width = 56
        Height = 53
        Align = alClient
        Shape = bsLeftLine
      end
      object Panel4: TPanel
        Left = 5
        Top = 12
        Width = 49
        Height = 34
        BevelOuter = bvNone
        Color = clBlack
        TabOrder = 0
        object Image1: TImage
          Left = 0
          Top = 0
          Width = 49
          Height = 34
          Align = alClient
          AutoSize = True
          Center = True
          Picture.Data = {