server_main.dfm

以前用delphi+kol写的监视工具

object classPolicySrv: TclassPolicySrv
  Left = 128
  Top = 130
  Width = 614
  Height = 391
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'wpolicy server 1.01 beta [KOL] - power by rock'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object p_client: TKOLPanel
    Tag = 0
    Left = 0
    Top = 73
    Width = 606
    Height = 255
    HelpContext = 0
    TabOrder = 4
    MinWidth = 0
    MinHeight = 0
    MaxWidth = 0
    MaxHeight = 0
    PlaceDown = False
    PlaceRight = False
    PlaceUnder = False
    Visible = True
    Enabled = True
    DoubleBuffered = False
    Align = caClient
    CenterOnParent = False
    Ctl3D = True
    Color = clBtnFace
    parentColor = True
    Font.Color = clWindowText
    Font.FontStyle = []
    Font.FontHeight = 8
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpVariable
    parentFont = True
    EraseBackground = False
    Localizy = loForm
    Transparent = False
    TextAlign = taLeft
    edgeStyle = esNone
    VerticalAlign = vaTop
    Border = 2
    MarginTop = 0
    MarginBottom = 0
    MarginLeft = 0
    MarginRight = 0
    object Panel1: TKOLPanel
      Tag = 0
      Left = 2
      Top = 2
      Width = 200
      Height = 251
      HelpContext = 0
      TabOrder = 2
      MinWidth = 0
      MinHeight = 0
      MaxWidth = 0
      MaxHeight = 0
      PlaceDown = False
      PlaceRight = False
      PlaceUnder = False
      Visible = True
      Enabled = True
      DoubleBuffered = False
      Align = caLeft
      CenterOnParent = False
      Ctl3D = True
      Color = clBtnFace
      parentColor = True
      Font.Color = clWindowText
      Font.FontStyle = []
      Font.FontHeight = 8
      Font.FontWidth = 0
      Font.FontWeight = 0
      Font.FontName = 'MS Sans Serif'
      Font.FontOrientation = 0
      Font.FontCharset = 1
      Font.FontPitch = fpVariable
      parentFont = True
      EraseBackground = False
      Localizy = loForm
      Transparent = False
      TextAlign = taLeft
      edgeStyle = esNone
      VerticalAlign = vaTop
      Border = 0
      MarginTop = 0
      MarginBottom = 0
      MarginLeft = 0
      MarginRight = 0
      object Panel2: TKOLPanel
        Tag = 0
        Left = 0
        Top = 0
        Width = 200
        Height = 19
        HelpContext = 0
        TabOrder = 1
        MinWidth = 0
        MinHeight = 0
        MaxWidth = 0
        MaxHeight = 0
        PlaceDown = False
        PlaceRight = False
        PlaceUnder = False
        Visible = True
        Enabled = True
        DoubleBuffered = False
        Align = caTop
        CenterOnParent = False
        Caption = 'Connections:'
        Ctl3D = True
        Color = clBtnFace
        parentColor = True
        Font.Color = clWindowText
        Font.FontStyle = []
        Font.FontHeight = 8
        Font.FontWidth = 0
        Font.FontWeight = 0
        Font.FontName = 'MS Sans Serif'
        Font.FontOrientation = 0
        Font.FontCharset = 1
        Font.FontPitch = fpVariable
        parentFont = True
        EraseBackground = False
        Localizy = loForm
        Transparent = False
        TextAlign = taCenter
        edgeStyle = esLowered
        VerticalAlign = vaCenter
        Border = 0
        MarginTop = 0
        MarginBottom = 0
        MarginLeft = 0
        MarginRight = 0
      end
      object conns: TKOLListView
        Tag = 0
        Left = 0
        Top = 19
        Width = 200
        Height = 232
        HelpContext = 0
        TabOrder = 2
        MinWidth = 0
        MinHeight = 0
        MaxWidth = 0
        MaxHeight = 0
        PlaceDown = False
        PlaceRight = False
        PlaceUnder = False
        Visible = True
        Enabled = True
        DoubleBuffered = False
        Align = caClient
        CenterOnParent = False
        Ctl3D = True
        Color = clWindow
        parentColor = False
        Font.Color = clWindowText
        Font.FontStyle = []
        Font.FontHeight = 8
        Font.FontWidth = 0
        Font.FontWeight = 0
        Font.FontName = 'MS Sans Serif'
        Font.FontOrientation = 0
        Font.FontCharset = 1
        Font.FontPitch = fpVariable
        parentFont = True
        EraseBackground = False
        Localizy = loForm
        Transparent = False
        Style = lvsDetail
        Options = []
        LVCount = 0
        LVTextBkColor = clWindow
        LVBkColor = clWindow
        popupMenu = PopupMenu3
        HasBorder = True
        TabStop = True
        generateConstants = True
        ColCount = 4
        Column0Name = 'Col1'
        Column0Caption = 'UserName'
        Column0TextAlign = 0
        Column0Width = 50
        Column0WidthType = 1
        Column0LVColImage = -1
        Column1Name = 'Col2'
        Column1Caption = 'Computer'
        Column1TextAlign = 0
        Column1Width = 50
        Column1WidthType = 1
        Column1LVColImage = -1
        Column2Name = 'Col3'
        Column2Caption = 'IP Address'
        Column2TextAlign = 0
        Column2Width = 50
        Column2WidthType = 1
        Column2LVColImage = -1
        Column3Name = 'Col4'
        Column3Caption = 'Start Time'
        Column3TextAlign = 0
        Column3Width = 50
        Column3WidthType = 0
        Column3LVColImage = -1
      end
    end
    object Splitter1: TKOLSplitter
      Tag = 0
      Left = 204
      Top = 2
      Width = 4
      Height = 251
      Cursor = crSizeWE
      HelpContext = 0
      TabOrder = 2
      MinWidth = 0
      MinHeight = 0
      MaxWidth = 0
      MaxHeight = 0
      PlaceDown = False
      PlaceRight = False
      PlaceUnder = False
      Visible = True
      Enabled = True
      DoubleBuffered = False
      Align = caLeft
      CenterOnParent = False
      Ctl3D = True
      Color = clBtnFace
      parentColor = False
      Font.Color = clWindowText
      Font.FontStyle = []
      Font.FontHeight = 8
      Font.FontWidth = 0
      Font.FontWeight = 0
      Font.FontName = 'MS Sans Serif'
      Font.FontOrientation = 0
      Font.FontCharset = 1
      Font.FontPitch = fpVariable
      parentFont = True
      EraseBackground = False
      Localizy = loForm
      Transparent = False
      MinSizePrev = 0
      MinSizeNext = 0
      edgeStyle = esNone
    end
    object packages: TKOLListEdit
      Tag = 0
      Left = 210
      Top = 2
      Width = 394
      Height = 251
      HelpContext = 0
      TabOrder = 0
      MinWidth = 0
      MinHeight = 0
      MaxWidth = 0
      MaxHeight = 0
      PlaceDown = False
      PlaceRight = False
      PlaceUnder = False
      Visible = True
      Enabled = True
      DoubleBuffered = True
      Align = caClient
      CenterOnParent = False
      Ctl3D = True
      Color = clWhite
      parentColor = False
      Font.Color = clWindowText
      Font.FontStyle = []
      Font.FontHeight = 12
      Font.FontWidth = 0
      Font.FontWeight = 0
      Font.FontName = 'MS Sans Serif'
      Font.FontOrientation = 0
      Font.FontCharset = 1
      Font.FontPitch = fpVariable
      parentFont = False
      EraseBackground = False
      Localizy = loForm
      Transparent = False
      Options = [lvoIconLeft, lvoAutoArrange, lvoEditLabel, lvoGridLines, lvoRowSelect, lvoOneClickActivate, lvoInfoTip, lvoUnderlineHot, lvoMultiWorkares]
      LVCount = 0
      LVTextBkColor = clNone
      LVBkColor = clWhite
      popupMenu = PopupMenu2
      HasBorder = True
      TabStop = True
      Columns = <>
      generateConstants = True
      ColCount = 0
      ColCount = 0
    end
  end
  object Memo1: TKOLMemo
    Tag = 0
    Left = 0
    Top = 0
    Width = 606
    Height = 65
    HelpContext = 0
    TabOrder = 0
    MinWidth = 0
    MinHeight = 0
    MaxWidth = 0
    MaxHeight = 0
    PlaceDown = False
    PlaceRight = False
    PlaceUnder = False
    Visible = True
    Enabled = True
    DoubleBuffered = False
    Align = caTop
    CenterOnParent = False
    Ctl3D = True
    Color = clWindow
    parentColor = False
    Font.Color = clWindowText
    Font.FontStyle = []
    Font.FontHeight = 9
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpVariable
    parentFont = False
    EraseBackground = False
    Localizy = loForm
    Transparent = False
    Text.Strings = (
      'Memo1')
    TextAlign = taLeft
    TabStop = True
    Options = []
    HasBorder = True
    EditTabChar = False
  end
  object Panel3: TKOLPanel
    Tag = 0
    Left = 0
    Top = 328
    Width = 606
    Height = 36
    HelpContext = 0
    TabOrder = 4
    MinWidth = 0
    MinHeight = 0
    MaxWidth = 0
    MaxHeight = 0
    PlaceDown = False
    PlaceRight = False
    PlaceUnder = False
    Visible = True
    Enabled = True
    DoubleBuffered = False
    Align = caBottom
    CenterOnParent = False
    Ctl3D = True
    Color = clBtnFace
    parentColor = True
    Font.Color = clWindowText
    Font.FontStyle = []
    Font.FontHeight = 8
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpVariable
    parentFont = True
    EraseBackground = False
    Localizy = loForm
    Transparent = False
    TextAlign = taLeft
    edgeStyle = esNone
    VerticalAlign = vaTop
    Border = 2
    MarginTop = 0
    MarginBottom = 0
    MarginLeft = 0
    MarginRight = 0
    object Button1: TKOLButton
      Tag = 0
      Left = 342
      Top = 6
      Width = 93
      Height = 22
      HelpContext = 0
      TabOrder = 1
      MinWidth = 0
      MinHeight = 0
      MaxWidth = 0
      MaxHeight = 0
      PlaceDown = False
      PlaceRight = False
      PlaceUnder = False
      Visible = True
      Enabled = True
      DoubleBuffered = False
      Align = caNone
      CenterOnParent = False
      Caption = 'OK'
      Ctl3D = True
      Color = clBtnFace
      parentColor = False
      Font.Color = clWindowText
      Font.FontStyle = []
      Font.FontHeight = 8
      Font.FontWidth = 0
      Font.FontWeight = 0
      Font.FontName = 'MS Sans Serif'
      Font.FontOrientation = 0
      Font.FontCharset = 1
      Font.FontPitch = fpVariable
      parentFont = True
      OnClick = Button1Click
      EraseBackground = False
      Localizy = loForm
      TextAlign = taCenter
      VerticalAlign = vaCenter
      TabStop = True
      LikeSpeedButton = False
      autoSize = False
      DefaultBtn = False
      CancelBtn = False
    end
    object Button2: TKOLButton
      Tag = 0
      Left = 453
      Top = 6
      Width = 93
      Height = 22
      HelpContext = 0
      TabOrder = 1
      MinWidth = 0
      MinHeight = 0
      MaxWidth = 0