étecter l'ajout ou la modification d'un fichier sur le disque.

PUBLIC frm
frm = CreateObject ("Tform", SYS(2023)) && surveiller le dossier c:\TEMP
frm.Visible = .T.

DEFINE CLASS Tform As Form
#DEFINE FILE_NOTIFY_CHANGE_FILE_NAME      1
#DEFINE FILE_NOTIFY_CHANGE_DIR_NAME       2
#DEFINE FILE_NOTIFY_CHANGE_ATTRIBUTES     4
#DEFINE FILE_NOTIFY_CHANGE_SIZE           8
#DEFINE FILE_NOTIFY_CHANGE_LAST_WRITE    16
#DEFINE FILE_NOTIFY_CHANGE_LAST_ACCESS   32
#DEFINE FILE_NOTIFY_CHANGE_CREATION      64
#DEFINE FILE_NOTIFY_CHANGE_SECURITY     128
#DEFINE INVALID_HANDLE_VALUE             -1
#DEFINE WAIT_OBJECT_0                     0
#DEFINE watchingInterval               1000  && milliseconds

    Width = 400
    Height = 150
    MaxButton = .F.
    BorderStyle = 2
    Caption = "Surveiller le répertoir"

    hNotify = INVALID_HANDLE_VALUE
    PathBeingWatched = ""
    
    ADD OBJECT lblTarget As Label WITH;
        Left=10, Top=7, Autosize=.T.

    ADD OBJECT lblAlert As Label WITH;
        Left=10, Top=30, Autosize=.T., Caption="Notification:"

    ADD OBJECT tm As Timer WITH Interval = 0

PROCEDURE  Load
    THIS.decl

FUNCTION  Init (lcPath)
    THIS.PathBeingWatched = FULLPATH (lcPath)

    IF Not THIS.startWatching()
        = MESSAGEB ("Notification handle error.")
        RETURN .F.
    ENDIF

PROTECTED FUNCTION  startWatching
    LOCAL lResult

    * no subdirs watched
    THIS.hNotify = FindFirstChangeNotification (;
        THIS.PathBeingWatched, 0,;
        FILE_NOTIFY_CHANGE_FILE_NAME +;
        FILE_NOTIFY_CHANGE_LAST_WRITE )

    lResult = (THIS.hNotify <> INVALID_HANDLE_VALUE)

    IF lResult
        THIS.lblTarget.Caption = "Surveillé: " +;
            THIS.PathBeingWatched
        THIS.tm.Interval = watchingInterval
    ENDIF
RETURN  lResult

PROTECTED PROCEDURE  continueWatching
    IF FindNextChangeNotification (THIS.hNotify) = 0
        THIS.stopWatching
        = MESSAGEB ("Request error.")
        THIS.Release
    ENDIF
    THIS.tm.Interval = watchingInterval

PROTECTED FUNCTION  stopWatching
    THIS.tm.Interval = 0
    IF THIS.hNotify <> INVALID_HANDLE_VALUE
        = FindCloseChangeNotification (THIS.hNotify)
    ENDIF

FUNCTION  _signaled        && return signaled state
RETURN  (WaitForSingleObject(THIS.hNotify, 0) = WAIT_OBJECT_0)

PROCEDURE  _notify        && notify on event
    THIS.lblAlert.Caption = "Notification: " + TTOC(DATETIME())
    THIS.continueWatching

PROCEDURE  tm.Timer
    IF ThisForm._signaled()
        ThisForm._notify
    ENDIF

PROCEDURE  Destroy
    THIS.stopWatching

PROTECTED PROCEDURE  decl
    DECLARE INTEGER FindFirstChangeNotification IN kernel32;
        STRING lpPathName, INTEGER bWatchSubtree, INTEGER dwNotifyFilter

    DECLARE SHORT FindNextChangeNotification IN kernel32 INTEGER hChangeHandle
    DECLARE SHORT FindCloseChangeNotification IN kernel32 INTEGER hChangeHandle

    DECLARE INTEGER WaitForSingleObject IN kernel32;
        INTEGER hHandle, INTEGER dwMilliseconds
ENDDEFINE