Версия для печати

Как предотвратить запуск 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;
Прочитано 5547 раз