Lenguaje de programación Borland Delphi
El primer requisito que se debe cumplir es que el sistema permita dicho evento (se puede ver en las Opciones de energía). Para apagar/encender el monitor por código:
uses ... windows, controls, messages ...;
...
//pasar monitor a modo de ahorro de energía
procedure modoAhorroDeEnergia;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;
//apagar monitor
procedure apagarMonitor;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
end;
//Encender monitor:
procedure encenderMonitor;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;
Publicado el: 2004-11-05