Как отключить хранитель экрана?
Олег Кулабухов приводит следующий код:
|
procedure TForm1.Button1Click(Sender: TObject); begin {Turn it off} SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); {Turn it on} SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0); end; |
[001829]
