Вырубить монитор

Сидят программисты за компами, заходит начальник:
- Почему мониторы грязные?
- Да чем мы их только не чистили, даже спиртом все равно не помогает.
- А вы их Кометом, говорят он еще и вирусы убивает.

Давайте прикольнёмся над пользователем. Допустим выведем внезапно сообщение, типа... "Уже поздно. Будь послушным мальчиком. Туши свет и вали спать!" и... вырубим монитор...(включить его чудилка уже не сможет)...

procedure TForm1.Button3Click(Sender: TObject);
begin
  MessageDlg('Уже поздно. Будь послушным мальчиком. '+
  'Туши свет и вали спать!', mtInformatoion, [mbOk], 0);
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end;

Для того, чтобы программно включить монитор можете использовать следующий код:

procedure TForm1.Button3Click(Sender: TObject);
begin
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 058 • TDictionary Custom Sort 6 162 • Fast Watermark Sources 5 955 • 3D Designer 8 825 • Sik Screen Capture 6 298 • Patch Maker 6 711 • Айболит (remote control) 6 702 • ListBox Drag & Drop 5 561 • Доска для игры Реверси 95 860 • Графические эффекты 6 930 • Рисование по маске 6 162 • Перетаскивание изображений 5 090 • Canvas Drawing 5 464 • Рисование Луны 5 178 • Поворот изображения 4 718 • Рисование стержней 3 329 • Paint on Shape 2 571 • Генератор кроссвордов 3 461 • Головоломка Paletto 2 772 • Теорема Монжа об окружностях 3 573 • Пазл Numbrix 2 340 • Заборы и коммивояжеры 3 026 • Игра HIP 1 982 • Игра Go (Го) 1 903 • Симулятор лифта 2 256 • Программа укладки плитки 1 968 • Генератор лабиринта 2 422 • Проверка числового ввода 2 097 • HEX View 2 427 • Физический маятник 2 054