//Code fourni par : Rémi Garcia
// Extinction du moniteur jusqu'au mouvement de la souris ou appui sur une touche du clavier
SendMessage(Handle(MoiMême),0x112,0xF170, 2)

// Ré-alumage de l'écran
SendMessage(Handle(MoiMême),0x112,0xF170, -1)