main.dfm

delphi开发的进程监视程序

object FormProc: TFormProc
  Left = 260
  Top = 138
  Width = 258
  Height = 337
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #36827#31243#38376#31070'V1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object MemoKilled: TMemo
    Left = 0
    Top = 0
    Width = 250
    Height = 284
    Align = alClient
    Lines.Strings = (
      '['#27491#22312#23454#26102#30417#27979#24694#24847#36827#31243']')
    TabOrder = 0
  end
  object Bar: TStatusBar
    Left = 0
    Top = 284
    Width = 250
    Height = 19
    Panels = <>
  end
  object PopupMenuTray: TPopupMenu
    object NCloseMenu: TMenuItem
      Caption = #20851#38381#26412#33756#21333'(&M)'
      ImageIndex = 12
    end
    object NInMon: TMenuItem
      Tag = 1
      AutoCheck = True
      Caption = #30417#27979#20013
      Checked = True
      RadioItem = True
      OnClick = ChangeState
    end
    object NStopMon: TMenuItem
      AutoCheck = True
      Caption = #20572#27490#30417#27979
      RadioItem = True
      OnClick = ChangeState
    end
    object N1: TMenuItem
      Caption = #35774#32622#26816#27979#26102#36317
      object NS1: TMenuItem
        Tag = 1
        AutoCheck = True
        Caption = '1'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS2: TMenuItem
        Tag = 2
        AutoCheck = True
        Caption = '2'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS3: TMenuItem
        Tag = 3
        AutoCheck = True
        Caption = '3'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS5: TMenuItem
        Tag = 5
        AutoCheck = True
        Caption = '5'#31186
        Checked = True
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS10: TMenuItem
        Tag = 10
        AutoCheck = True
        Caption = '10'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS20: TMenuItem
        Tag = 20
        AutoCheck = True
        Caption = '20'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS30: TMenuItem
        Tag = 30
        AutoCheck = True
        Caption = '30'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
      object NS60: TMenuItem
        Tag = 60
        AutoCheck = True
        Caption = '60'#31186
        RadioItem = True
        OnClick = SetInterTimeClick
      end
    end
    object NClose: TMenuItem
      Caption = #20851#38381'(&E)'
      ImageIndex = 13
      OnClick = ToolButtonClose
    end
  end
  object Timer: TTimer
    Interval = 5000
    OnTimer = TimerTimer
    Left = 32
  end
end