Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как програмно, на время, отключить клавиатуру или монитор [D3, Win95/98]

Cherv © (2002-07-05 19:16:00)
Помогите кто моЖет. Надо, очень надо

aleksander (2002-07-08 09:06:00) [1]
Отключить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

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

Cherv (2002-07-07 23:19:00) [2]

> 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

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

Builder (2002-07-06 19:05:00) [3]
Смотри
Procedure BlockInput(ABlockInput: Boolean); stdcall; External "USER32.DLL";

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

Shiva (2002-07-06 10:08:00) [4]
Можно использовать из приложения Дельфи с помощью следующей конструкции:
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

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

Diamond Cat (2002-07-05 23:26:00) [5]
Посмотри в конфу по API там эта тема не раз обсуждалась , и я гдето там давал исходники

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »