Как отключить хранитель экрана

Delphi , Графика и Игры , ScreenSaver и ScreenMate

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;

Here is the translation of the text into Russian:

Функция SystemParametersInfo используется для получения или изменения различных параметров системы. В этом случае параметр SPI_SETSCREENSAVERACTIVE используется для включения или отключения экранной саверки.

Вот разбивка того, что делает каждый участок кода:

• SystemParametersInfo( SPI_SETSCREENSAVEACTIVE, 0, nil, 0 );
  • Эта строка отключает экранную саверку. Параметр SPI_SETSCREENSAVERACTIVE указывает, что мы хотим изменить состояние экранной саверки, а значение 0 означает, что ее нужно отключить.
• SystemParametersInfo( SPI_SETSCREENSAVEACTIVE, 1, nil, 0 );
  • Эта строка включает экранную саверку. Значение 1 означает, что ее нужно включить.

Таким образом, если вы хотите программно отключать (или включать) экранную саверку в вашем приложении, вы можете использовать эти строки кода в обработчике события кнопки или другого обработчика событий.

Альтернативным решением может быть использование компонента TScreenSaverSettings из библиотеки VCL. Этот компонент предоставляет свойства и методы для управления настройками экранной саверки, включая ее включение или отключение.

Вот пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ScreenSaverSettings.ScreenSaverActive := False; // Отключить экранную саверку
end;

И чтобы включить экранную саверку снова:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ScreenSaverSettings.ScreenSaverActive := True; // Включить экранную саверку
end;

Обратите внимание, что вам нужно добавить компонент TScreenSaverSettings на вашу форму и установить свойство Enabled в значение True, чтобы эти примеры работали.

В статье описано, как отключить хранитель экрана на компьютере с помощью кода в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ScreenSaver и ScreenMate ::