Форум: "Система";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Вниз
Как програмно, на время, отключить клавиатуру или монитор Найти похожие ветки
← →
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 вся ветка
Форум: "Система";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c