Saiba como fazer uma aplicação que não permita a entrada da proteção de tela do Windows
Primeiro veremos como desativar a proteção de tela (não se esqueça de configurá-la para ser acionada em pouco tempo para poder ser testada). Crie um novo form. Na seção "private" do form acrescente:
procedure AppMsg(var Msg: TMsg; var Handled: Boolean);
Na seção "implementation" acrescente :
procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.Message = wm_SysCommand) and (Msg.wParam = sc_ScreenSave) then
Handled := true;
end;
Nota: Troque "TForm1" pelo nome do seu form caso o mesmo tenha sido alterado.
No evento "OnCreate" do form coloque:
Application.OnMessage := AppMsg;
Agora veremos como ativar a proteção de tela através de um botão. Para isso acrescente o seguinte código no evento onClick:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;
Pronto, a proteção de tela do windows não será mais executada automaticamente.
por Erick Rhamnusia
