Comment interdire la mise en veille d'une machine sous Win ?

Salut,
jai essaye le Code suivant:

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.WMPowerBroadcast(var Msg: TMessage); const PBT_APMQUERYSUSPEND = $0000; begin if Msg.wParam = PBT_APMQUERYSUSPEND then Msg.Result := BROADCAST_QUERY_DENY; end;

---

Link: http://delphi.developpez.com/faq/?pa...remiseenveille
mais rien ne c produit ?!!!
est ce un Bug ou bien jai pas su le faire fonctioner???

Moi j'utilise ce code pour désactivier :

Code:

---

SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,SPIF_SENDWININICHANGE);

---

et celui là pour réactivier

Code:

---

SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,SPIF_SENDWININICHANGE);

---