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
