скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Оформил: DeeCo

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. $ 
}





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook