Переключиться в режим StandBy

Delphi , ОС и Железо , Компьютер

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

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 1);
 end;

Here's the translation of the text into Russian:

Классический код Delphi! Процедура обработки события клика кнопки Button1 вызывается, когда пользователь нажимает на кнопку Button1 на форме. Цель этой процедуры - поместить компьютер в режим ожидания.

Вот что происходит: 1. SendMessage: эта функция отправляет сообщение в указанный handle окна (Handle). В этом случае сообщение - это WM_ SYSCOMMAND, которое является системным командой. 2. SC_SCREENSAVE: это значение представляет код управления экраном (0x011D). 3. 1: это дополнительный параметр для функции SendMessage. В этом случае он установлен в 1, что может использоваться системой для указания дополнительных настроек или параметров режима ожидания.

Когда вы нажмете кнопку, эта процедура отправит сообщение в handle окна (Handle) с следующими параметрами:

WM_SYSCOMMAND (0x0112)
  wParam: SC_SCREENSAVE (0x011D)
  lParam: 1

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

Альтернативное решение - использовать API Power для программного включения системы в спящий/режим ожидания. Например:

uses
  Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETPOWERSTATECHANGE, 0, SPI_STANDBY, 0);
end;

В этом коде используется функция SystemParametersInfo для установки изменения состояния мощности в режим ожидания. Этот подход может быть более надежным и гибким, чем использование метода SendMessage. Помните всегда тестировать свой код на различных системах и конфигурациях, чтобы убедиться, что он работает как ожидалось!

В статье описывается процедура переключения в режим StandBy, выполняющаяся с помощью функции SendMessage и константы SC_SCREENSAVE.

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

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

:: Главная :: Компьютер ::