El codigo no hace nada
 

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.

Hola

Usá este código:

Código Delphi [-]
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

Saludos

Gracias por contestar, me da un error, dice que no reconoce Handle

Código Delphi [-]
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

pues intenta poniendo el nombre del form principal en vez de Application, asi:

Código Delphi [-]
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

Saludos.

Con eso si que me funciona, muchas gracias.

Hombre que bueno que hayas podido resolver tu problema.

Saludos.