Delphi 使用 TShellChangeNotifier 得知目錄中的檔案異動

在元件面版 Samples 中有 TShellChangeNotifier 及 TShellListView
在 Form 上放入這二個元件
在 Form Create 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ShellListView1 do
  begin
    Align := alClient;
    ViewStyle := vsReport;
    Root := 'C:\'; //  要顯示的目錄
  end;
  with ShellChangeNotifier1 do
  begin
    WatchSubTree := False;
    Root := ShellListView1.Root; // 要偵測的目錄
  end;
end;

在 ShellChangeNotifier1 Change 事件中加入

procedure TForm1.ShellChangeNotifier1Change;
begin
  ShellListView1.Refresh; // 更新 ListView
  Application.ProcessMessages;
  ShowMessage('Change'); 
end;