XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Ordner auf Veränderungen überwachen
Def @Findfirstchangenotification(3) !kernel32,FindFirstChangeNotificationA
Def @Waitforsingleobject(2) !Kernel32,WaitForSingleObject
Def @Findnextchangenotification(1) Kernel32,FindNextChangeNotification
Def @Findclosechangenotification(1) Kernel32,FindCloseChangeNotification
Declare Change_pfad$,Change_handle&,Change_notify&
Windowstyle 31 + 512
Windowtitle Änderung eines Orners
Window 0,0 - 640,440
Let Change_pfad$ = @Choosedir$(Bitte einen Orner zum Überwachen wählen:)

If Change_pfad$ <>

    Let Change_handle& = @Findfirstchangenotification( @Addr(Change_pfad$), 1, $1 | $2 | $4 | $8)
    Let Change_notify& = -1

    Whilenot @Or(Change_notify& = 0, %Menuitem = -2)

        Let Change_notify& = @Waitforsingleobject( Change_handle&, 500)
        @Findnextchangenotification( Change_handle&)

    Endwhile

    If %Menuitem <> -2

        @Messagebox( In Pfad  + Change_pfad$ +  gab es Änderungen! Eine neue Sicherung muß durchgeführt werden!, Hinweis, 64 + 4096)

    Endif

    @Findclosechangenotification( Change_handle&)

Endif