XProfan

Español

Descripción:

FindFirstChangeNotification erstellt una „Änderungshandle’ con el Los cambios en un Ordner überwacht voluntad puede.

Deklaration:

DEF @FindFirstChangeNotification(3) !kernel32,FindFirstChangeNotificationA

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el el Ordner enthält, el en Los cambios überwacht voluntad se.

2.Parámetro: Ein Flag el angibt, si auch el Unterordner überwacht voluntad debería. =>
-0 = no Unterordner überwachen
-1 = Unterordner überwachen

3.Parámetro: Kombinationsflag el angibt, welche Los cambios überwacht voluntad debería.=>
-$1 = (FILE_NOTIFY_CHANGE_FILE_NAME) Namensänderungen de Archivos voluntad überwacht.
-$2 = (FILE_NOTIFY_CHANGE_DIR_NAME) Namensänderungen de Ordnern voluntad überwacht.
-$4 = (FILE_NOTIFY_CHANGE_ATTRIBUTES) El Änderung de Expediente- y Ordnerattributen se überwacht.
-$8 = (FILE_NOTIFY_CHANGE_SIZE) Größenänderungen voluntad überwacht.
-$10 = (FILE_NOTIFY_CHANGE_LAST_WRITE) Schreibzugriffe voluntad überwacht.
-$100 = (FILE_NOTIFY_CHANGE_SECURITY) Un Änderung el Sicherheitsattribute voluntad überwacht. Dieser Flag darf sólo bajo NT-basierten Systemen verwendet voluntad.

Rückgabewert:

En Erfolg el Handle, en el uno Änderung zurückgegeben se. En una Fehler –1.

Beispiele:

Kompilieren Marca Separación

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