使用Delphi跟蹤對文件夾所做的更改？

Question

我需要編寫一個delphi程序來監視文件夾的變化（添加，更新，重命名和刪除文件）。 TShellChangeNotifier是否要走？說實話，我不知道如何使用它。

請幫忙。

謝謝。

Answer 1

This question may help。 mghie的回答顯示如何正確使用ReadDirectoryChangesW。

Answer 2

我認爲這篇文章將幫助您：Monitoring System Shell Changes using Delphi

基本上分析了TShellChangeNotifier，將其丟棄，然後進入一個TSHChangeNotify這基本上是爲SHChangeNotify Windows API函數的包裝。

Answer 3

我建議使用madShell

RegisterShellEvent(ShellEvent, pathToMonitor, false, [seItemCreated, seItemRenamed]); 

// 

procedure Tform.ShellEvent(event: TShellEventType; const obj1, obj2: IShellObj; drive: char; value: cardinal); 
var 
    filename: string; 
    isReady: boolean; 
begin 
    if (event = seItemCreated) then 
    filename := obj1.Path 
    else if (event = seItemRenamed) then 
    filename := obj2.Path 
    else 
    exit; 

    // try to open to ensure it's read for reading 
    repeat 
    try 
     TfileStream.Create(filename, fmOpenRead + fmShareExclusive).Free; 
     isReady := true; 
    except 
     isReady := false; 
     sleep(250); 
    end; 
    until (isReady) or (not FileExists(filename)); 

    OutputDebugString(pChar('ShellEvent: ' + filename)); 

end;