Delphi dicas

Ativa protetor de tela (testado winxp)

// Apenas coloque isso no form, que irá abrir o protetor de tela automaticamente ;D



SendMessage(GetDesktopWindow, 274, 61760, 0);