Hola estoy haciendo un programa consola en Delphi XE2 para apagar la pantalla , ya lo habia hecho en una aplicacion grafica normal pero en el programa consola me parece imposible de hacerlo , en stackoverflow me dieron que era imposbile hacerlo pero queria una segunda opinion , este es el codigo :
Código Delphi
[-]
program test;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,ShellApi,Windows;
function turn_off(): string;
const
MONITOR_ON = -1;
MONITOR_OFF = 2;
MONITOR_STANDBY = 1;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF);
end;
begin
try
turn_off();
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Los errores son :
Código:
Undeclared identifier: 'Application' Undeclared identifier: 'WM_SYSCOMMAND'
El primero no puedo solucionarlo pero el segundo error se soluciona agregando el uses Winapi.Messages al codigo.
¿ Alguien me puede ayudar ?