Saiba como fazer uma aplicao que no permita a entrada da  proteo de tela do windows

Primeiro veremos como desativar a proteo de tela (no se esquea de configur-la para ser acionada em pouco tempo para poder ser testada).

Crie um novo form. Na seo "private" do form acrescente: 

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

Na seo "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; 

(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 proteo de tela atravs de  um boto. Para isso acrescente o seguinte cdigo  no evento onClick: 

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end; 


Pronto, a proteo de tela do windows no ser mais executada automaticamente.
