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

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

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

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

Оформил: 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 ::


реклама


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

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