Ууууу... Кез с Трэмпледом - ФомЫ Анитичата - пока не докажешь - не поверют ))))

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1) - отключение монитора

Скомпиленные файлы и исходники.

Один из недостатков - монитор просыпаеться при мышиной\клавиатурной активности. Для устранения эффекта процесс введён в цикл. Выход из квадрата малевича - Alt+F4.

Re!!!