Evitar a proteção de tela durante seu programa

Um pequeno algortimo para que possa bloquear a proteção de tela

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;

Artigos relacionados