unit1.dfm

压缩解压缩代码

object Form1: TForm1
  Left = 172
  Top = 91
  Width = 633
  Height = 461
  Caption = #20449#24687#19982#32534#30721#32508#21512#35797#39564
  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 = 625
    Height = 353
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object ScrollBox1: TScrollBox
      Left = 0
      Top = 0
      Width = 169
      Height = 349
      Align = alLeft
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clWhite
      ParentColor = False
      TabOrder = 0
      object ShellTreeView1: TShellTreeView
        Left = 0
        Top = 0
        Width = 165
        Height = 345
        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 = 452
      Height = 349
      AutoContextMenus = False
      ObjectTypes = [otFolders, otNonFolders]
      Root = 'rfMyComputer'
      ShellTreeView = ShellTreeView1
      Sorted = True
      Align = alClient
      OnClick = ShellListView1Click
      ReadOnly = False
      HideSelection = False
      MultiSelect = True
      OnMouseDown = ShellListView1MouseDown
      PopupMenu = PopupMenu1
      TabOrder = 1
      ViewStyle = vsSmallIcon
    end
  end
  object SB: TStatusBar
    Left = 0
    Top = 408
    Width = 625
    Height = 19
    AutoHint = True
    Panels = <
      item
        Text = #23398#21495#65306'2002374325 || '#22995#21517':'#24464#28023#25096
        Width = 200
      end
      item
        Text = #20449#24687#23398#38498
        Width = 80
      end
      item
        Text = #21326#21335#20892#19994#22823#23398
        Width = 200
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 625
    Height = 55
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    TabOrder = 2
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 569
      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
      object ProgressBar1: TProgressBar
        Left = 211
        Top = 0
        Width = 201
        Height = 51
        TabOrder = 0
      end
      object Memo1: TMemo
        Left = 412
        Top = 0
        Width = 157
        Height = 51
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object Panel3: TPanel
      Left = 569
      Top = 0
      Width = 56
      Height = 55
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object Bevel1: TBevel
        Left = 0