Управление монитором

Выключить монитор:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Включить монитор:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

Исправление

_гораздо_ корректнее

SendMessage(HWND_BROADCAST,WM_SYSCOMMAND, 0)

или

SendMessage(HWND_BROADCAST,WM_SYSCOMMAND, -1)

а вариант с Application.handle вообще по-моему нерабочий , ну если и рабочий то в глубоко частном случае !

С уважением, .

Дополнение:

добавляет еще один способ:

SetSystemPowerState(true,true);

[000020]