Карта сайта 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. $ 
}

Статья Предотвратить Screen Saver при запуске раздела Графика и Игры ScreenSaver и ScreenMate может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 09:22:50/0.033273220062256/0