05.10.2009, 16:32
|
|
Banned
Регистрация: 25.11.2007
Сообщений: 62
С нами:
9715564
Репутация:
89
|
|
Код:
procedure BlockInput; external 'user32.dll';
procedure Block;
asm
push 1
call BlockInput
end;
procedure UnBlock;
asm
push 0
call BlockInput
end;
Найдено в DelphiWorld. Блокировка клавиатуры и мыши, снимается нажатием ctrl+alt+del либо вызовом UnBlock; .
Проверил - работает (Vista, XP virt.)
Последний раз редактировалось Пуховой; 05.10.2009 в 16:45..
|
|
|