main.dfm

一个很不错的系统信息控件

object wnd_Main: Twnd_Main
  Left = 296
  Top = 324
  Caption = 'MiTeC Process Viewer'
  ClientHeight = 517
  ClientWidth = 449
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 449
    Height = 2
    Align = alTop
    Shape = bsTopLine
  end
  object pc: TPageControl
    Left = 11
    Top = 13
    Width = 426
    Height = 458
    Cursor = crHandPoint
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnChange = pcChange
    object TabSheet1: TTabSheet
      Caption = ' Processes '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object PrcList: TListView
        Left = 6
        Top = 7
        Width = 402
        Height = 379
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Name'
            Width = 100
          end
          item
            Alignment = taRightJustify
            Caption = 'PID'
            Width = 70
          end
          item
            Alignment = taRightJustify
            Caption = 'CPU Time'
            Width = 75
          end
          item
            Alignment = taRightJustify
            Caption = 'Mem Usage'
            Width = 100
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = ListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem
        OnColumnClick = ListColumnClick
        OnCompare = ListCompare
        OnDblClick = cmPrcDetails
      end
      object Button1: TButton
        Left = 252
        Top = 396
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Properties...'
        TabOrder = 1
        OnClick = cmPrcProps
      end
      object Button2: TButton
        Left = 335
        Top = 396
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Details...'
        TabOrder = 2
        OnClick = cmPrcDetails
      end
    end
    object TabSheet2: TTabSheet
      Caption = ' Drivers '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object DrvList: TListView
        Left = 8
        Top = 7
        Width = 402
        Height = 379
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Name'
            Width = 150
          end
          item
            Caption = 'Base Address'
            Width = 80
          end
          item
            Alignment = taRightJustify
            Caption = 'Load Cnt'
            Width = 60
          end
          item
            Caption = 'Location'
            Width = 150
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = ListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem
        OnColumnClick = ListColumnClick
        OnCompare = ListCompare
        OnDblClick = cmDrvDetails
      end
      object Button3: TButton
        Left = 252
        Top = 396
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Properties...'
        TabOrder = 1
        OnClick = cmDrvProps
      end
      object Button6: TButton
        Left = 335
        Top = 396
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Details...'
        TabOrder = 2
        OnClick = cmDrvDetails
      end
    end
    object TabSheet3: TTabSheet
      Caption = ' Services '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object SvcList: TListView
        Left = 8
        Top = 6
        Width = 402
        Height = 379
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Display Name'
            Width = 220
          end
          item
            Caption = 'Status'
            Width = 80
          end
          item
            Caption = 'Startup Type'
            Width = 75
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = ListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem
        OnColumnClick = ListColumnClick
        OnCompare = ListCompare
        OnDblClick = cmSvcDetails
      end
      object Button4: TButton
        Left = 252
        Top = 396
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Properties...'
        TabOrder = 1
        OnClick = cmSvcProps
      end
      object Button5: TButton
        Left = 335
        Top = 396
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Details...'
        TabOrder = 2
        OnClick = cmSvcDetails
      end
    end
  end
  object sb: TStatusBar
    Left = 0
    Top = 498
    Width = 449
    Height = 19
    Panels = <
      item
        Text = 'Threads: 0'
        Width = 100
      end
      item
        Text = 'Handles: 0'
        Width = 100
      end
      item
        Text = 'Windows: 0'
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object sd: TSaveDialog
    Filter = 'MiTeC System Information Storage files|*.sis|All files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 278
    Top = 204
  end
  object MainMenu: TMainMenu
    Left = 78
    Top = 158
    object File1: TMenuItem
      Caption = 'File'
      object mmRefresh: TMenuItem
        Caption = 'Refresh'
        ShortCut = 116
        OnClick = cmRefresh
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mmSaveReport: TMenuItem
        Caption = 'Save to storage...'
        OnClick = cmSaveReport
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mmExit: TMenuItem
        Caption = 'Exit'
        OnClick = cmExit
      end
    end
    object mmProcess: TMenuItem
      Caption = 'Process'
      object mmPrcProps: TMenuItem
        Caption = 'Properties...'
        OnClick = cmPrcProps
      end
      object mmPrcDetails: TMenuItem
        Caption = 'Details...'
        OnClick = cmPrcDetails
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mmPrcKill: TMenuItem
        Caption = 'Kill'
        OnClick = cmPrcKill
      end
    end
    object mmDriver: TMenuItem
      Caption = 'Driver'
      Visible = False
      object mmDrvProps: TMenuItem
        Caption = 'Properties...'
        OnClick = cmDrvProps
      end
    end
    object mmService: TMenuItem
      Caption = 'Service'
      Visible = False
      object mmSvcProps: TMenuItem
        Caption = 'Properties...'
      end
      object mSvcDetails: TMenuItem
        Caption = 'Details...'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mmSvcStart: TMenuItem
        Caption = 'Start'
        OnClick = cmSvcStart
      end
      object mmSvcStop: TMenuItem
        Caption = 'Stop'
        OnClick = cmSvcStop
      end
      object mmSvcPause: TMenuItem
        Caption = 'Pause'
        OnClick = cmSvcPause
      end
      object mmSvcResume: TMenuItem
        Caption = 'Resume'
        OnClick = cmSvcResume
      end
    end
    object mmAbout: TMenuItem
      Caption = 'About'
      OnClick = mmAboutClick
    end
  end
  object ProcList: TMiTeC_ProcessList
    DetectionRange = [dtProcesses, dtServices, dtDrivers, dtHandles, dtWindows]
    Left = 186
    Top = 93
  end
end