Ordner überwachen

[ASM]

Eine Überwachung in Echtzeit ist das alles nun aber nicht gerade.
Das aber läßt sich mit Hilfe der WinAPI und ggf. in einem eigenen Thread machen, wie z.B. für das Hinzufügen, Löschen oder Rename eines Files nach diesem Grundgerüst:

Code:

 Var  NotificationHandle: Cardinal;
      Response: Cardinal;
      FolderToMonitor: String; // das zu überwachende Verzeichnis
      Monitoring: Boolean; // zur Steuerung der Schleife auch aus dem Hauptthread heraus     
     
 function WaitFor(Hdl: Cardinal; Timeout: Cardinal = INFINITE): Cardinal;
 begin
  Result := WaitForSingleObject(Hdl, Timeout);
 end;

 
 NotificationHandle := FindFirstChangeNotification(PChar(FolderToMonitor), FALSE, FILE_NOTIFY_CHANGE_FILE_NAME);
 if (NotificationHandle <> INVALID_HANDLE_VALUE) then exit;
 While monitoring do
  begin
    Response := WaitFor(NotificationHandle, 100);  // oder anderen Timeout, aber  timeout:=INFINITE ist nicht empfehlenswert
    if (Response = WAIT_OBJECT_0) then
    begin
        // jetzt darauf reagieren ... 
        // bzw. eine entspr. Message an den Hauptthread reichen: Synchronize(MitWelcherProzedurAuchImmer);   
        // und dann entweder abbrechen (mit Break aus der Schleife)
        // oder aber fortsetzen mit:
        FindNextChangeNotification(NotificationHandle);
    end;
    Application.ProcessMessages;  // dies jedoch nicht in einem eigenen Thread
  end;

[Skullwing]

Ist in der Funktion jetzt enthalten, dass er das Verzeichnis scannt ?

Und bei "Jetzt darauf reagieren", muss ich schreiben, dass das was er aus dem letzten Scann hat, mit einem anderen vergleichen soll, oder?

[himitsu]

Dort wo dieser Kommentar steht, kannst du "irgendwas" machen, denn dieser Teil wird ja aufgerufen, wenn sich irgendwo, im überwachten Bereich, eine Datei geändert hat.

Genauere Informationen, findet man bei der Beschreibung zur Funktion:
FindFirstChangeNotification (meistens gleich der erste Link)


Oder in den anderen Threads. (siehe Beitrag #2)

Für die, welche die Suchfunktion nicht kennen:
Ordner überwachen (auf diese Suchworte kommt man natürlich nie)
Verzeichnis überwachen (Ähnliches)
FindFirstChangeNotification (was haben Andere schon dazu geschrieben)