Вырубить монитор
Давайте прикольнёмся над пользователем. Допустим выведем внезапно сообщение, типа... "Уже поздно. Будь послушным мальчиком. Туши свет и вали спать!" и... вырубим монитор...(включить его чудилка уже не сможет)...
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;
|
|
|
|
|
Новые игры стратегии, онлайн. Онлайн игра, online стратегия, новая игра. . Переводчик с немецкого на русский язык. Письменный переводчик с немецкого на русский язык. . Как купить квартиру/комнату: новостройки москвы. . недорогая гостиница Москва . |
