Предотвратить Screen Saver при запуске

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

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

interface

 private
   procedure AppMessage(var Msg: TMsg; var handled: Boolean);
 end;

 implementation


 procedure TForm1.AppMessage(var Msg: TMsg; var handled: Boolean);
 begin
   if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
     Handled := True;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AppMessage;
 end;

 { 
  Note: The Screensaver is only disabled during the lifespan of 
  your application. 
   
  Bemerkung: Der Screensaver bleibt nur solange deaktiviert, 
  wie ihre Applikation lдuft. $ 
}

Приведенный код предназначен для предотвращения включения экранной засыпки при запуске приложения на языке Delphi. Это достигается за счет перехвата системного командного сообщения (WM_ SYSCOMMAND) и проверки, является ли оно связанным с экранной засыпкой (SC_SCREENSAVE). Если оба условия выполняются, то параметр handled устанавливается в True, что предотвращает включение экранной засыпки.

Распределение кода:

1. В процедуре AppMessage проверяется, является ли полученное сообщение системным командом (WM_SYSCOMMAND) и если его wParam-значение соответствует команде экранной засыпки (SC_SCREENSAVE). Если оба условия выполняются, то параметр handled устанавливается в True.
2. В процедуре FormCreate присваивается процедура AppMessage как обработчик сообщений приложения с помощью свойства Application.OnMessage.

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

В целом, этот код обеспечивает простой и эффективный способ предотвращения включения экранной засыпки при запуске приложения на языке Delphi.

Предотвратить запуск Screen Saver на компьютере можно с помощью процедуры AppMessage, которая блокирует сообщение WM_SYSCOMMAND с параметром SC_SCREENSAVE в приложении Delphi.

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

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

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