Używanie Delphi do śledzenia zmian dokonanych w folderze?

Question

Potrzebuję napisać program delphi, który będzie monitorował folder pod kątem zmian (dodawanie, aktualizowanie, zmiana nazwy i usuwanie plików). Czy TShellChangeNotifier jest do zrobienia? Szczerze mówiąc, nie mam pojęcia, jak z niego korzystać.

Proszę o pomoc.

Dzięki.

Answer 1

Ten question może pomóc. Odpowiedź mghie pokazuje, jak prawidłowo używać ReadDirectoryChangesW.

Answer 2

Myślę, że ten artykuł pomoże Ci: Monitoring System Shell Changes using Delphi

Zasadniczo analizuje TShellChangeNotifier, odrzuca go, a następnie idzie na TSHChangeNotify który jest po prostu otoki dla funkcji API SHChangeNotify Windows.

Answer 3

Proponuję za pomocą 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;