Погасить монитор:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
Перевести монитор в состояние Low Power:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
Перевести монитор в состояние Power Off:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
Активировать монитор:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
Victor Gozhiy
gozhiy@upc.kiev.uaAlexander Zasypkin
az@iai.donetsk.ua (2:465/188.8)