Utiliser Delphi pour suivre les modifications apportées au dossier?

Question

J'ai besoin d'écrire un programme Delphi qui va surveiller un dossier pour les changements (Ajouter, mettre à jour, renommer et supprimer des fichiers). Est-ce que le TShellChangeNotifier est prêt? Pour être honnête, je n'ai aucune idée de comment l'utiliser.

Aidez-nous s'il vous plaît.

Merci.

Answer 1

Cette question peut aider. La réponse de Mghie montre comment utiliser correctement ReadDirectoryChangesW.

Answer 2

Je pense que cet article vous aidera à: Monitoring System Shell Changes using Delphi

Fondamentalement, il analyse les TShellChangeNotifier, les rejets et puis il va pour une TSHChangeNotify qui est essentiellement une enveloppe pour la SHChangeNotify fenêtres fonction api.

Answer 3

Je suggère d'utiliser 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;