unitregistry.dfm

不错的远程控制程序

object Registry: TRegistry
  Left = 450
  Top = 226
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #27880#20876#34920#32534#36753
  ClientHeight = 458
  ClientWidth = 710
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 445
    Width = 710
    Height = 13
    Align = alBottom
    Caption = #26681'    '#38190
  end
  object Splitter1: TSplitter
    Left = 185
    Top = 41
    Height = 404
  end
  object ListView1: TListView
    Left = 188
    Top = 41
    Width = 522
    Height = 404
    Cursor = crHourGlass
    Align = alClient
    Columns = <
      item
        Caption = #21517#23383
        Width = 200
      end
      item
        Caption = #31867#22411
        Width = 110
      end
      item
        Caption = #25968#25454
        Width = 200
      end>
    GridLines = True
    PopupMenu = PopupMenu1
    SmallImages = ImageList1
    TabOrder = 0
    ViewStyle = vsReport
    OnEdited = ListView1Edited
  end
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 185
    Height = 404
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 25
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Panel2'
      Color = cl3DLight
      TabOrder = 0
      DesignSize = (
        185
        25)
      object ComboBox1: TComboBox
        Left = 0
        Top = 0
        Width = 185
        Height = 21
        Anchors = [akLeft, akTop, akRight, akBottom]
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 0
        OnChange = ComboBox1Change
        Items.Strings = (
          'HKEY_CLASSES_ROOT'
          'HKEY_CURRENT_USER'
          'HKEY_LOCAL_MACHINE'
          'HKEY_USERS'
          'HKEY_CURRENT_CONFIG')
      end
    end
    object ListView2: TListView
      Left = 0
      Top = 25
      Width = 185
      Height = 379
      Align = alClient
      Columns = <
        item
          Width = 141
        end>
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      RowSelect = True
      ParentFont = False
      PopupMenu = PopupMenu2
      ShowColumnHeaders = False
      SmallImages = ImageList3
      TabOrder = 1
      ViewStyle = vsReport
      OnDblClick = ListView2DblClick
      OnEdited = ListView2Edited
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 710
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Color = cl3DLight
    TabOrder = 2
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 515
      Height = 41
      Align = alLeft
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 55
      Caption = 'ToolBar1'
      Color = cl3DLight
      EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
      Flat = True
      Images = ImageList8
      ParentColor = False
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object ToolButton12: TToolButton
        Left = 0
        Top = 0
        Caption = #21019#24314#26032#38190
        ImageIndex = 0
        OnClick = Key1Click
      end
      object ToolButton13: TToolButton
        Left = 55
        Top = 0
        Caption = #21024#38500#38190
        ImageIndex = 0
        OnClick = Delete2Click
      end
      object ToolButton14: TToolButton
        Left = 110
        Top = 0
        Caption = #38190#37325#21629#21517
        ImageIndex = 0
        OnClick = Rename2Click
      end
      object ToolButton15: TToolButton
        Left = 165
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton16: TToolButton
        Left = 173
        Top = 0
        Caption = #21019#24314#39033
        ImageIndex = 1
        OnClick = Modify1Click
      end
      object ToolButton17: TToolButton
        Left = 228
        Top = 0
        Caption = #21024#38500#39033
        ImageIndex = 1
        OnClick = Delete1Click
      end
      object ToolButton18: TToolButton
        Left = 283
        Top = 0
        Caption = #39033#37325#21629#21517
        ImageIndex = 1
        OnClick = Rename1Click
      end
      object ToolButton19: TToolButton
        Left = 338
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object ToolButton20: TToolButton
        Left = 346
        Top = 0
        Caption = #23383#31526#20018
        ImageIndex = 2
        OnClick = StringValue1Click
      end
      object ToolButton21: TToolButton
        Left = 401
        Top = 0
        Caption = #21452#23383#33410
        ImageIndex = 2
        OnClick = DWORDValue1Click
      end
      object ToolButton22: TToolButton
        Left = 456
        Top = 0
        Caption = #20108#36827#21046
        ImageIndex = 2
        OnClick = BinaryValue1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 512
    Top = 240
    object Modify1: TMenuItem
      Caption = #20462#25913
      OnClick = Modify1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Delete1: TMenuItem
      Caption = #21024#38500
      OnClick = Delete1Click
    end
    object Rename1: TMenuItem
      Caption = #25913#21517
      OnClick = Rename1Click
    end
    object New1: TMenuItem
      Caption = #26032#24314
      Visible = False
      object Key1: TMenuItem
        Caption = #38190
        OnClick = Key1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object StringValue1: TMenuItem
        Caption = #23383#31526#20018#25968#25454