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;