Скачать: CL | DM;

Помогите! Нужно программно влючать/выключать монитор клаву и мышу   Найти похожие ветки 

← →
Dimok ©   (2003-04-11 00:28) [0]

Я тут столкнулся с такой проблемой! Нужно программно влючать/выключать монитор клаву и мышу! Читал про это в умных книжках, ничего не выходит. Подскажите как быть!

---

← →
varfolomey ©   (2003-04-11 01:35) [1]

procedure MouseDisabled;
begin
ShellExecute(Application.Handle, Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"), Pchar("mouse,disable"), Pchar("C:\Windows"),SW_SHOWNORMAL);
end;

procedure KeyboardDisabled;
begin
ShellExecute(Application.Handle, Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"), Pchar("keyboard,disable"), Pchar("C:\Windows"),SW_SHOWNORMAL);
end;

:)

---

← →
Sirus ©   (2003-04-11 07:25) [2]

Procedure MonitorOff;
Begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
End;

Procedure MonitorOn;
Begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
End;

---

← →
KPV-10k ©   (2003-04-13 22:12) [3]

> Procedure MonitorOff;
> Begin
> SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER,
> 0);
> End;
>
эта ф-ция работать не будет под НТ там надо посылать SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);

=(...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c