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

Как програмно, на время, отключить клавиатуру или монитор   Найти похожие ветки 

← →
Cherv   (2002-07-05 19:16) [0]

Помогите кто моЖет. Надо, очень надо

---

← →
Diamond Cat ©   (2002-07-05 23:26) [1]

Посмотри в конфу по API там эта тема не раз обсуждалась , и я гдето там давал исходники

---

← →
Shiva   (2002-07-06 10:08) [2]

Можно использовать из приложения Дельфи с помощью следующей конструкции:
ShellExecute(Application.Handle,
Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),
Pchar(команда),
Pchar("C:\Windows"),SW_SHOWNORMAL);
где команда:
"rundll32 keyboard,disable" - Вырубить Клавиатуру
"rundll32 shell32,SHExitWindowsEx 1" - Выключение Компутера.
"rundll32 shell32,SHExitWindowsEx 0" - Завершить Работу Текущего Пользователя
"rundll32 shell32,SHExitWindowsEx 2" Windows-98-PC boot

с монитором не знаю как

---

← →
Builder ©   (2002-07-06 19:05) [3]

Смотри
Procedure BlockInput(ABlockInput: Boolean); stdcall; External "USER32.DLL";

А вообще - перейти в спящий режим, потом векапнуться :)

---

← →
Cherv   (2002-07-07 23:19) [4]

> Shiva (06.07.02 10:08)
> Можно использовать из приложения Дельфи с помощью следующей
> конструкции:
> ShellExecute(Application.Handle,
> Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),
> Pchar(команда),
> Pchar("C:\Windows"),SW_SHOWNORMAL);
> где команда:
> "rundll32 keyboard,disable" - Вырубить Клавиатуру
> "rundll32 shell32,SHExitWindowsEx 1" - Выключение Компутера.
> "rundll32 shell32,SHExitWindowsEx 0" - Завершить Работу
> Текущего Пользователя
> "rundll32 shell32,SHExitWindowsEx 2" Windows-98-PC boot

,а как разблокировать?

---

← →
aleksander ©   (2002-07-08 09:06) [5]

Отключить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Включить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

---

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

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



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