CONSTANTE
        WM_POWERBROADCAST=0x0218  
        BROADCAST_QUERY_DENY=0x424D5144
FIN

EvenementMiseEnVeille=Evénement("MiseEnVeille","*.*",WM_POWERBROADCAST)
        //Traitement qui ne doit pas être mise en veille
FinEvénement(EvenementMiseEnVeille)



AVEC la PROCEDURE "MiseEnVeille" suivante :

// Syntaxe :
//[ <Résultat> = ] MiseEnVeille (<eNumMessage>, <wParam>, <lParam>)
//
// Paramètres :
//        eNumMessage : <indiquez ici le rôle de eNumMessage>
//        wParam : indication sur le type d'evenement d'alimentation
//        lParam : généralement inutilisé, dépend de wParam
// Valeur de retour :
//         entier : BROADCAST_QUERY_DENY pour inhiber la mise en veille, Vrai pour l'accépter

PROCEDURE MiseEnVeille(eNumMessage,wParam,lParam)

DélaiAvantFermeture(300)
SI OuiNon("L'ordinateur va passser en veille, voulez-vous arrêter la mise en veille ?") ALORS
        DélaiAvantFermeture(0)
        RENVOYER BROADCAST_QUERY_DENY
        SINON
        DélaiAvantFermeture(0)
        RENVOYER Vrai
FIN