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

Previous  Top  Next

    
 

 

Code:

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.

}

 

©Drkb::02385

Взято с сайта: http://www.swissdelphicenter.ch