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

← →
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

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

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

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

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