Delphi-Help

Главная Статьи ScreenSaver и ScreenMate Как предотвратить запуск Screen Saver'a во время работы программы?

Как предотвратить запуск Screen Saver'a во время работы программы?

Оцените материал
(0 голосов)


Как предотвратить запуск Screen Saver'a во время работы программы?

Screen Saver блокируется на время работы приложения

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure AppMessage( var Msg: TMsg; var handled: Boolean );
  end;
 
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;
Прочитано 4381 раз

Авторизация



Счетчики