Как запустить текущий ScreenSaver 2

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

Сначала мы проверяем, установлен ли Screen Saver, если нет - возвращаемся с отрицательным ответом, в противном случае - запускаем его и возвращаем true.

function RunScreenSaver: bool;
var
  b: boolean;
begin
  result := false;
  if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @b, 0) <> true then
    exit;
  if not b then
    exit;
  PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
  result := true;
end;

Here is the translation of the text into Russian:

Ностальгия! Это старый код Delphi для запуска текущего экранного saver.

Вот разбивка того, что код делает:

1. Функция RunScreenSaver не принимает параметров и возвращает булевое значение, указывающее, успешно ли был запущен экранный saver или нет.
2. Изначально функция устанавливает свой возвращаемый результат в false.
3. Она использует функцию Windows API SystemParametersInfo для проверки, включен ли экранный saver (SPI_ GETSCREENSAVEACTIVE). Если он не включен, функция выходит с возвращаемым значением false.
4. Если экранный saver включен, функция проверяет значение b, которое будет равно true, если экранный saver активен, и false в противном случае.
5. Если экранный saver активен (not b), функция отправляет Windows-сообщение (WM_ SYSCOMMAND) окну рабочего стола с кодом команды SC_SCREENSAVE. Это запускает экранный saver.
6. Наконец, функция устанавливает свой возвращаемый результат в true, указывая, что экранный saver успешно был запущен.

Чтобы запустить этот код в Delphi:

1. Создайте новый проект VCL Forms в Delphi.
2. Добавьте кнопку на вашем формате.
3. Перекликните кнопку, чтобы создать обработчик события для события Click.
4. Вставьте код в обработчик события, заменив любое существующее код.
5. Скомпилируйте и запустите приложение.

Когда вы нажмете на кнопку, текущий экранный saver должен быть запущен.

В статье описывается функция RunScreenSaver, которая позволяет запустить текущий скринсейвер на компьютере.

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

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

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