|
Esse código é útil se seu programa
for um fundo, uma proteção de tela diferente, um esquema de login ou de proteção
com senha... Assim a proteção de tela é ignorada se seu prog. estiver ativo.
Inclua Windows na seção uses, caso ainda não tenha.
Coloque o seguinte na seção 'private':
procedure AppMsg(var Msg: TMsg; var Handled: Boolean);
Coloque o código abaixo na seção 'implementation': (troque TForm1 pelo nome do
seu formulário principal)
procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin
if(Msg.wParam = sc_ScreenSave) then
Handled := True;
end;
Por fim, no evento 'onCreate' do formulário principal, coloque:
Application.OnMessage := AppMsg;
//Uma
pergunta... por que o scandisc (ou chkdsk) não utiliza isto?!
//Marcos Elias
|