Verwenden von Delphi, um Änderungen an Ordner zu verfolgen?

Question

Ich muss ein Delphi-Programm schreiben, das einen Ordner auf Änderungen überwacht (Hinzufügen, Aktualisieren, Umbenennen und Entfernen von Dateien). Ist der TShellChangeNotifier weit weg? Um ehrlich zu sein, ich habe keine Ahnung, wie man es benutzt.

Bitte helfen.

Danke.

Answer 1

Diese question könnte helfen. mghies Antwort zeigt, wie man ReadDirectoryChangesW richtig benutzt.

Answer 2

Ich denke, dieser Artikel wird Ihnen helfen: Monitoring System Shell Changes using Delphi

Im Grunde ist es die TShellChangeNotifier analysiert, verwirft sie und geht dann für eine TSHChangeNotify, die für die SHChangeNotify Windows API Funktion im Grunde ein Wrapper ist.

Answer 3

Ich schlage vor, 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;