跟踪对 Delphi 中的文件夹所做的更改

Question

我需要编写一个 Delphi 程序来监视文件夹的更改（添加、更新、重命名和删除文件）。

我看到了使用 TShellChangeNotifier 的建议。这是这个问题的正确解决方案吗？我应该如何使用它？

Answer 1

这个问题可能会有所帮助。 mghie 的答案展示了如何正确使用 ReadDirectoryChangesW。

Answer 2

我认为这篇文章会对您有所帮助：使用 Delphi 监视系统 Shell 更改

基本上它会分析 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;