[jorgegetafe]

Utilizo este truco: http://www.q3.nu/trucomania/ftesp.html y cuando presiono el boton ni se me apaga la pantalla ni nada :-(

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end;

gracias.