Как отключить хранитель экрана Автор: Олег Кулабухов Встречаются два юзера. Один другому: - Что-то лицо мне ваше знакомо, вы в скринсейверах не снимались? 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; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
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;
Как отключить хранитель экрана