XProfan

Français

Beschreibung:

FindFirstChangeNotification erstellt un „Änderungshandle’ avec dem Changements dans einem Dossier überwacht volonté peut.

Deklaration:

DEF @FindFirstChangeNotification(3) !kernel32,FindFirstChangeNotificationA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den Dossier contient, qui sur Changements überwacht volonté soll.

2.paramètre: un Flag qui angibt, si aussi qui Unterordner überwacht volonté devoir. =>
-0 = aucun Unterordner surveiller
-1 = Unterordner surveiller

3.paramètre: Kombinationsflag qui angibt, quelle Changements überwacht volonté devoir.=>
-$1 = (FILE_NOTIFY_CHANGE_FILE_NAME) Namensänderungen de Fichiers volonté überwacht.
-$2 = (FILE_NOTIFY_CHANGE_DIR_NAME) Namensänderungen de Ordnern volonté überwacht.
-$4 = (FILE_NOTIFY_CHANGE_ATTRIBUTES) qui Changement de Dossier- et Ordnerattributen wird überwacht.
-$8 = (FILE_NOTIFY_CHANGE_SIZE) Größenänderungen volonté überwacht.
-$10 = (FILE_NOTIFY_CHANGE_LAST_WRITE) Schreibzugriffe volonté überwacht.
-$100 = (FILE_NOTIFY_CHANGE_SECURITY) une Changement qui Sicherheitsattribute volonté überwacht. cette Flag darf seulement sous NT-basierten Systemen verwendet volonté.

Rückgabewert:

chez Erfolg cela Handle, cela chez einer Changement retour wird. chez einem faute –1.

Beispiele:

Kompilieren Marque Séparation

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&)

    wend

    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