Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Получить время задержки хранителя экрана

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

Получить время задержки хранителя экрана

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetScreenSaverTimeout: Integer;
 begin
   SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @Result, 0);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage(IntToStr(GetScreenSaverTimeout) + ' Sec.');
 end;

Here's the translation of the text into Russian:

Код на Delphi, предназначенный для получения времени, необходимого для активации экранной сэвера после истечения периода ожидания системы.

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

  1. Функция GetScreenSaverTimeout вызывает функцию Windows API SystemParametersInfo с параметром SPI_GETSCREENSAVETIMEOUT, который получает время в секундах, необходимое для активации экранной сэверы.
  2. Процедура Button1Click вызывается при клике кнопки на форме. Она вызывает функцию GetScreenSaverTimeout и отображает результат в сообщении.

Однако, есть маленькая проблема с этим кодом. Функция SystemParametersInfo ожидает указатель на целочисленную переменную, где она будет хранить значение таймаута, но в этом случае переменная Result не объявлена как указатель на целочисленную переменную.

Вот предложенная альтернативная решение:

function GetScreenSaverTimeout: Integer;
begin
  var timeout: Cardinal;
  SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @timeout, 0);
  Result := timeout;
end;

В этом обновленном коде функция GetScreenSaverTimeout объявляет локальную переменную timeout типа Cardinal, который является целочисленным типом, способным хранить значение таймаута. Функция SystemParametersInfo вызывается с указателем на эту переменную с помощью оператора @.

Сделав это изменение, код должен работать корректно и отображать время экранной сэверы в секундах при клике кнопки.

Описывается функция на языке Delphi для получения времени задержки хранителя экрана (сcreesaver).


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

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




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-10-12 15:16:50/0.0033679008483887/0