Protetor de tela com delphi

{Para fazer protetor de tela com o Delphi

Para o pessoal que queria saber...

A) No .Dpr ponha {$D SCRNSAVE } depois do uses

B) No Form principal nao ponha borda ou icone. No metodo Activate ponha left
e top como 0 e o Windowstate como wsMaximize.

C) no form.Create ponha application.OnMessage para um metodo que controle a
desativacao do screen saver. Ponha tb o application.OnIdle para "rodar" o
dito cujo...

D) Tb no Form.Create teste a linha de comando para /c ou /s. Estes
parametros dizem o que e' para fazer (/c configura)

E) Compile e renomeie o .exe p/ .scr, move para o diretorio do windows e...}