mainpas.dfm

特别方便的工具程序

object A00Form: TA00Form
  Left = 0
  Top = 20
  Width = 640
  Height = 465
  BorderWidth = 1
  Caption = 'Delphi '#23453#20856#33539#20363#38598#25104
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MMenu1
  OldCreateOrder = False
  PopupMenu = PMenu1
  Position = poDefault
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  DesignSize = (
    630
    417)
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 232
    Top = 24
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {
      07544269746D6170BE000000424DBE000000000000003E000000280000002000
      000020000000010001000000000080000000130B0000130B0000020000000200
      000080000000FF0000000070003800F0003C00E01C1C01E0221E87C0410FFF80
      4107FF004103FC00220000001C000000000000FE000003018F80040070600800
      6010100090082000880820010804400104044001040440010404400104044000
      8408FC008408FF004413FF803867A7C00F8F11E0101E08E0201C04F0403C0371
      803800FE003800700038}
  end
  object ListView1: TListView
    Left = 64
    Top = 80
    Width = 519
    Height = 294
    Columns = <
      item
        AutoSize = True
        Caption = #31867#21517#31216
      end
      item
        AutoSize = True
        Caption = #26631#39064
      end
      item
        AutoSize = True
        Caption = #31867#32534#21495
      end>
    HideSelection = False
    LargeImages = ImageList1
    RowSelect = True
    SortType = stText
    TabOrder = 2
    ViewStyle = vsReport
    OnDblClick = ShowThisWindow
  end
  object Button1: TButton
    Left = 7
    Top = 41
    Width = 66
    Height = 25
    Caption = #31227#21160
    TabOrder = 0
    Visible = False
    OnMouseDown = Button1MouseDown
  end
  object SB: TStatusBar
    Left = 0
    Top = 398
    Width = 630
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 630
    Height = 30
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 26
        Width = 626
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 613
      Height = 26
      Align = alClient
      AutoSize = True
      ButtonHeight = 26
      ButtonWidth = 103
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      List = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #28165#38500#22403#22334'(&C)'
        ImageIndex = 11
        OnClick = N1Click
      end
      object ToolButton2: TToolButton
        Left = 103
        Top = 0
        Caption = #36827#31243#31649#29702'(&P)'
        ImageIndex = 4
        OnClick = N2Click
      end
      object ToolButton6: TToolButton
        Left = 206
        Top = 0
        Caption = #25991#20214#31649#29702'(&F)'
        ImageIndex = 5
        OnClick = FileCheck
      end
      object ToolButton3: TToolButton
        Left = 309
        Top = 0
        Caption = ' '#37325#21551#21160'(&R)'
        ImageIndex = 12
        OnClick = ShutDown
      end
      object ToolButton4: TToolButton
        Left = 412
        Top = 0
        Caption = '  '#20851#26426'(&S)'
        ImageIndex = 28
      end
      object ToolButton5: TToolButton
        Left = 515
        Top = 0
        Caption = '  '#36864#20986'(&X)'
        ImageIndex = 51
        OnClick = N9Click
      end
    end
  end
  object Button2: TButton
    Left = 472
    Top = 44
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'Button2'
    TabOrder = 4
    OnClick = ShutMonitor
  end
  object Button3: TButton
    Left = 552
    Top = 44
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'Button3'
    TabOrder = 5
    OnClick = Button3Click
  end
  object MMenu1: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Images = ImageList1
    Left = 320
    Top = 80
    object N11: TMenuItem
      Caption = #12304'&F-'#25991#20214#12305
      object N25: TMenuItem
        Caption = #32447#31243#22788#29702#33539#20363
        OnClick = N25Click
      end
      object N37: TMenuItem
        Caption = '-'
        ShortCut = 189
      end
      object N2: TMenuItem
        Caption = #31995#32479#36827#31243#31649#29702
        ImageIndex = 4
        ShortCut = 112
        OnClick = N2Click
      end
      object N26: TMenuItem
        Caption = '-'
      end
      object N49: TMenuItem
        Caption = #25991#20214#23646#24615#27983#35272#22120
        OnClick = N49Click
      end
      object N1: TMenuItem
        Caption = #28165#38500#22403#22334#25991#20214
        ImageIndex = 11
        OnClick = N1Click
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object DFNO01: TMenuItem
        Caption = #30331#38470'NetWare'
        OnClick = DFNO01Click
      end
      object aaaa2: TMenuItem
        Caption = #26174#31034#32593#32476#29992#25143#21517#31216
        OnClick = GetNetUserName
      end
      object N8: TMenuItem
        Caption = #27880#38144'NetWare'
        OnClick = N8Click
      end
    end
    object N39: TMenuItem
      Caption = #12304'&E-'#32534#36753#12305
      object F1Book1: TMenuItem
        Caption = #25991#23383#22788#29702#65288'F1Book'#65289
        OnClick = F1Book1Click
      end
      object N40: TMenuItem
        Caption = '-'
      end
      object N38: TMenuItem
        Caption = #26597#25214#26367#25442#23383#31526#20018
        ShortCut = 114
        OnClick = N38Click
      end
      object N43: TMenuItem