Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Apagar/Encender el monitor por código - Delphi
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A