OXygen DirectorySpy delphi版文件监控

下载了Oxygen Dir Watcher, 需要安装控件, 直接改成单元引用了

上代码:

O2DirSpy.pas

object MainForm: TMainForm  Left = 0  Top = 0  Caption = 'MainForm'  ClientHeight = 388  ClientWidth = 485  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -12  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  OnCreate = FormCreate  OnDestroy = FormDestroy  PixelsPerInch = 106  TextHeight = 14  object lstChanges: TListBox    Left = 0    Top = 105    Width = 485    Height = 283    Align = alClient    ItemHeight = 14    TabOrder = 0    ExplicitLeft = -63    ExplicitWidth = 548    ExplicitHeight = 254  end  object pnl1: TPanel    Left = 0    Top = 0    Width = 485    Height = 105    Align = alTop    TabOrder = 1    ExplicitLeft = -63    ExplicitWidth = 548    object pnl2: TPanel      Left = 405      Top = 1      Width = 79      Height = 103      Align = alRight      BevelOuter = bvNone      TabOrder = 0      ExplicitLeft = 468      object pnl3: TPanel        Left = 4        Top = 0        Width = 75        Height = 103        Align = alRight        BevelOuter = bvNone        TabOrder = 0        object btnAdd: TButton          Left = 4          Top = 24          Width = 69          Height = 21          Caption = 'Add'          TabOrder = 0          OnClick = btnAddClick        end        object btnRemove: TButton          Left = 4          Top = 52          Width = 69          Height = 21          Caption = 'Remove'          Enabled = False          TabOrder = 1          OnClick = btnRemoveClick        end      end    end    object pnl4: TPanel      Left = 1      Top = 1      Width = 404      Height = 103      Align = alClient      BevelOuter = bvNone      TabOrder = 1      ExplicitWidth = 467      object lstDirectoriesListBox: TListBox        Left = 0        Top = 29        Width = 404        Height = 74        Align = alClient        ItemHeight = 14        TabOrder = 0        ExplicitWidth = 467      end      object pnl5: TPanel        Left = 0        Top = 0        Width = 404        Height = 29        Align = alTop        BevelOuter = bvNone        TabOrder = 1        ExplicitWidth = 467        object lbl1: TLabel          Left = 5          Top = 8          Width = 115          Height = 14          Caption = 'Directories to watch:'        end        object chkWatchSubTree: TCheckBox          Left = 220          Top = 4          Width = 125          Height = 17          Caption = 'Watch subdirectories'          Checked = True          State = cbChecked          TabOrder = 0          OnClick = chkWatchSubTreeClick        end      end    end  endend