Монитор выключить!

← →
ssss (2007-02-04 12:38) [0]

Добрый день
Народ подскажите пожалуйста как монитор выключить программно?

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

ДАнный пример отключает но при активации мышки(или клавы) сразу же включает... подскажите пожалуйста!

← →
TRUNK © (2007-02-04 21:43) [1]

> Данный пример отключает, но при активации мышки (или клавы)
> сразу же включает

А как ты собираешься включить его обратно без мышки и без клавы?

← →
Правильный Вася (2007-02-04 21:45) [2]

а юзера программно выключить не хочешь?

← →
Гость_ (2007-02-04 22:02) [3]

> Правильный Вася (04.02.07 21:45) [2]
> а юзера программно выключить не хочешь?

а ходил слух, что сушествует вирус, который весит угадайте сколько толи байт, толи кб который баловался с монитором так что у юзерверя разрав сердца приключался или в мозгу чего.

← →
J_f_S (2007-02-05 06:06) [4]

AfxMessageBox(_T("Пожалуйста, выключите монитор. Я сам пока не умею :(, но обязательно научусь."));

← →
TUser © (2007-02-05 10:22) [5]

> Гость_ (04.02.07 22:02) [3]

Твой пост и есть такой вирус. После его прочтения у тебе подобных происходит что-то в мозгу такое, что они идут на какой-нибудь форум и постят эту чушь. Ты-то где заразился?

← →
novill © (2007-02-05 10:29) [6]

> [0] ssss (04.02.07 12:38)

вопрос в чем - как блокировать мышку/клаву?

Самый надежный способ - контролер, какой-нить транзисторный ключ на порт, реле на питание к монитору ну и программу для управления этим всем.

Драйвер для "манипулятор типа рук".

Программно можно отключить монитор совместимый со стандартом EnergyStar.

Отправьте сообщение wm_SysCommand с параметром WParam = SC_MonitorPower
и LParam = 0 для отключения монитора
LParam = 1 для включения монитора

В приведенном примере монитор отключается на 10 секунд.

Пример:

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
MonitorOff : bool;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := false;
Timer1.Interval := 10000;
MonitorOff := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MonitorOff then begin
MonitorOff := false;
SendMessage(Application.Handle,
wm_SysCommand,
SC_MonitorPower,
-1);
Timer1.Enabled := false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MonitorOff := true;
Timer1.Enabled := true;
SendMessage(Application.Handle,
wm_SysCommand,
SC_MonitorPower,
0);
end;

Монитор выключить! Найти похожие ветки