Отрубить клаву, мышь и монитор.

← →
WELLiON (2004-08-25 01:10) [0]

Можно ли это сделать силами винапи из-под ХР? Если можно, то не поделитесь ли Вы со мной секретом? Заранее благодарю.

← →
Алхимик © (2004-08-25 01:22) [1]

Отрубают силами, вернее посредством топора. :)
//Погасить монитор:
SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
//Перевести монитор в состояние Low Power:
SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
//Перевести монитор в состояние Power Off:
SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
//Активировать монитор:
SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

← →
WELLiON (2004-08-25 17:32) [2]

А клаву с мышью? Хотя спасибо и за монитор.

← →
FreeMan1 (2004-08-25 18:31) [3]

низкоуровневй хук на мышку и на монитор
http://ogoncharenko.narod.ru/DelphiMain/DelphiFaq/116.htm

← →
WELLiON (2004-08-25 18:48) [4]

Спасибо. Про монитор работает как часы, а клаву с мышью сейчас посмотрю.

← →
Brodyga (2004-08-26 11:37) [5]

Есть апи функция, которая блокирует работу мыши и клавы:
"Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long"

Чтобы заблокировать клаву и мышу достаточно в проге ввести следующую команду: BlockInput True, а когда захотите вернуть обратно - BlockInput False.
но рекомендую для эксперимента пользоваться таймером на возврат, потому что после запуска этой функции ничего больше сделать с компом не удасться. Например такой вариант:

private sub form_load()
timer1.interval = xxxxx
timer1.enabled = true
blockinput true
end sub

private sub timer1_timer()
blockinput false
end sub

← →
Amoeba © (2004-08-26 18:14) [6]

По поводу клавиатуры, мыши и прочего была информация, если ничего не путаю, где-то так года 3 назад на http://www.delphikingdom.com в разделе "Круглый стол".

Вот, нашел:
WinExec("rundll32 mouse,disable",1);
WinExec("rundll32 keyboard,disable",1);

> Чтобы заблокировать клаву и мышу достаточно в проге ввести
> следующую команду: BlockInput True, а когда захотите вернуть
> обратно - BlockInput False.
> но рекомендую для эксперимента пользоваться таймером на
> возврат, потому что после запуска этой функции ничего больше
> сделать с компом не удасться.

Удастся и еще как? Я делал с полгода назад такой блок. Работает то ли Ctrl + Alt + Delete, то ли Escape, то ли еще что-то, но чем-то эта штука сбрасывается. Сейчас пробовать не буду, но однозначно что-то есть...

> Чтобы заблокировать клаву и мышу достаточно в проге ввести
> следующую команду: BlockInput True, а когда захотите вернуть
> обратно - BlockInput False.
> но рекомендую для эксперимента пользоваться таймером на
> возврат, потому что после запуска этой функции ничего больше
> сделать с компом не удасться.

Удастся и еще как! Я делал с полгода назад такой блок. Работает то ли Ctrl + Alt + Delete, то ли Escape, то ли еще что-то, но чем-то эта штука сбрасывается. Сейчас пробовать не буду, но однозначно что-то есть...

Отрубить клаву, мышь и монитор. Найти похожие ветки