unit1.~dfm

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

object Class_wpolicy: TClass_wpolicy
  Left = 161
  Top = 177
  Width = 399
  Height = 262
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Class_wpolicy'
  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 Memo1: TKOLMemo
    Tag = 0
    Left = 2
    Top = 2
    Width = 387
    Height = 199
    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 = 0
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpDefault
    parentFont = True
    EraseBackground = False
    Localizy = loForm
    Transparent = False
    TextAlign = taLeft
    TabStop = True
    Options = [eo_Readonly]
    HasBorder = True
    EditTabChar = False
  end
  object Button1: TKOLButton
    Tag = 0
    Left = 96
    Top = 208
    Width = 64
    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 = 0
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpDefault
    parentFont = True
    OnClick = Button1Click
    EraseBackground = False
    Localizy = loForm
    TextAlign = taCenter
    VerticalAlign = vaCenter
    TabStop = True
    LikeSpeedButton = False
    autoSize = False
    DefaultBtn = True
    CancelBtn = False
  end
  object Button2: TKOLButton
    Tag = 0
    Left = 216
    Top = 208
    Width = 64
    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 = 'About'
    Ctl3D = True
    Color = clBtnFace
    parentColor = False
    Font.Color = clWindowText
    Font.FontStyle = []
    Font.FontHeight = 0
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpDefault
    parentFont = True
    OnClick = Button2Click
    EraseBackground = False
    Localizy = loForm
    TextAlign = taCenter
    VerticalAlign = vaCenter
    TabStop = True
    LikeSpeedButton = False
    autoSize = False
    DefaultBtn = False
    CancelBtn = False
  end
  object KOLProject1: TKOLProject
    Locked = False
    Localizy = False
    projectName = 'wpolicy'
    projectDest = 'wpolicy'
    sourcePath = 'E:\mydoc\Myapp\wpolicy\'
    outdcuPath = 'E:\mydoc\Myapp\wpolicy\'
    dprResource = False
    protectFiles = True
    showReport = True
    isKOLProject = True
    autoBuild = True
    autoBuildDelay = 500
    BUILD = False
    consoleOut = False
    SupportAnsiMnemonics = 0
    PaintType = ptWYSIWIG
    Left = 32
    Top = 72
  end
  object KOLForm1: TKOLForm
    Caption = 'Class_wpolicy'
    Visible = True
    OnClose = KOLForm1Close
    OnQueryEndSession = KOLForm1QueryEndSession
    AllBtnReturnClick = False
    Locked = False
    formUnit = 'Unit1'
    formMain = True
    Enabled = True
    Tabulate = False
    TabulateEx = False
    defaultSize = False
    defaultPosition = False
    MinWidth = 0
    MinHeight = 0
    MaxWidth = 0
    MaxHeight = 0
    HasBorder = True
    HasCaption = False
    StayOnTop = False
    CanResize = True
    CenterOnScreen = True
    Ctl3D = True
    WindowState = wsNormal
    minimizeIcon = False
    maximizeIcon = False
    closeIcon = True
    helpContextIcon = False
    HelpContext = 0
    Color = clBtnFace
    Font.Color = clWindowText
    Font.FontStyle = []
    Font.FontHeight = 0
    Font.FontWidth = 0
    Font.FontWeight = 0
    Font.FontName = 'MS Sans Serif'
    Font.FontOrientation = 0
    Font.FontCharset = 1
    Font.FontPitch = fpDefault
    DoubleBuffered = False
    PreventResizeFlicks = False
    Transparent = False
    AlphaBlend = 255
    Border = 2
    MarginLeft = 0
    MarginRight = 0
    MarginTop = 0
    MarginBottom = 0
    MinimizeNormalAnimated = False
    zOrderChildren = False
    statusSizeGrip = True
    Localizy = False
    OnFormCreate = KOLForm1FormCreate
    EraseBackground = False
    supportMnemonics = False
    Left = 80
    Top = 72
  end
  object PopupMenu1: TKOLPopupMenu
    Tag = 0
    showShortcuts = True
    generateConstants = True
    genearteSepeartorConstants = False
    Flags = []
    Localizy = loForm
    Left = 80
    Top = 32
    ItemCount = 4
    Item0Name = 'N4'
    Item0Caption = 'List disable programs'
    Item0Enabled = True
    Item0Visible = True
    Item0Checked = False
    Item0RadioGroup = 0
    Item0Separator = False
    Item0Accelerator = 0
    Item0Bitmap = ()
    Item0OnMenu = 'PopupMenu1N4Menu'
    Item0SubItemCount = 0
    Item0WindowMenu = False
    Item1Name = 'N3'
    Item1Caption = 'List ExePath'
    Item1Enabled = True
    Item1Visible = True
    Item1Checked = False
    Item1RadioGroup = 0
    Item1Separator = False
    Item1Accelerator = 0
    Item1Bitmap = ()
    Item1OnMenu = 'PopupMenu1N3Menu'
    Item1SubItemCount = 0
    Item1WindowMenu = False
    Item2Name = 'N1'
    Item2Caption = 'Show'
    Item2Enabled = True
    Item2Visible = True
    Item2Checked = False
    Item2RadioGroup = 0
    Item2Separator = False
    Item2Accelerator = 0
    Item2Bitmap = ()
    Item2OnMenu = 'PopupMenu1N1Menu'
    Item2SubItemCount = 0
    Item2WindowMenu = False
    Item3Name = 'N2'
    Item3Caption = 'Exit'
    Item3Enabled = True
    Item3Visible = True
    Item3Checked = False
    Item3RadioGroup = 0
    Item3Separator = False
    Item3Accelerator = 0
    Item3Bitmap = ()
    Item3OnMenu = 'PopupMenu1N2Menu'
    Item3SubItemCount = 0
    Item3WindowMenu = False
  end
  object WatchThread: TKOLThread
    Tag = 0
    PriorityClass = pcIdle
    ThreadPriority = tpIdle
    OnExecute = WatchThreadExecute
    startSuspended = True
    AutoFree = True
    Left = 40
    Top = 32
  end
  object Client: TKOLTCPClient
    Tag = 0
    Port = 0
    OnDisconnect = ClientDisconnect
    OnError = ClientError
    OnReceive = ClientReceive
    OnStreamReceive = ClientStreamReceive
    OnConnect = ClientConnect
    Left = 80
    Top = 136
  end
  object srv: TKOLTCPServer
    Tag = 0
    Port = 0
    OnError = srvError
    OnClientReceive = srvClientReceive
    OnClientStreamSend = srvClientStreamSend
    OnClientStreamReceive = srvClientStreamReceive
    Left = 16
    Top = 136
  end
  object Timer1: TKOLTimer
    Tag = 0
    Interval = 60000
    Enabled = False
    OnTimer = Timer1Timer
    Left = 200
    Top = 32
  end
end