Discussion :

[Soulama]

Salut,
jai essaye le Code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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???

[MD Software]

Moi j'utilise ce code pour désactivier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,SPIF_SENDWININICHANGE);

et celui là pour réactivier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,SPIF_SENDWININICHANGE);