|
|
| Astuces
-
Système -
Activer et désactiver l'économiseur
d'ecran en Delphi |
| Désactiver
l'économiseur d'écran |
|
procedure
TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil,
0);
end;
|
|
| Activer l'économiseur
d'écran |
|
procedure
TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil,
0);
end;
|
|
|
