Dicas - Proibir proteção de tela

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Saiba como fazer uma aplicação que não permita a entrada da proteção de tela do Windows.

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

uploader@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?