Application - Evitar o screensaver

16 - Como evitar a proteção de tela durante seu programa?

Inclua na seção uses: Windows

{ Na seção "private" do Form principal acrescente: }

procedure AppMsg(var Msg: TMsg; var Handled: Boolean);

{ Na seção "implementation" acrescente (troque TForm1 para

  o nome do seu form principal): }

procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);

begin

  if (Msg.Message = wm_SysCommand) and

     (Msg.wParam = sc_ScreenSave) then

    Handled := true;

end;

{ No evento "OnCreate" do form principal, coloque: }

Application.OnMessage := AppMsg;