Как блокировать клавиатуру и мышку

← →
Adil (2004-08-20 13:23) [0]

Как блокировать клавиатуру и мышку и как отменить блокировку??

← →
[lamer]Barmaglot © (2004-08-20 13:36) [1]

Вирусы пишем?

FAQ?

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621106&n=15

← →
Adil (2004-08-20 14:01) [2]

Нет. Не вирус. Программу для интернет кафе. Когда время вышло программа будет блокировать клав и мышку.

← →
Adil (2004-08-20 14:22) [3]

Это для Win9x на 2k не работает

← →
[lamer]Barmaglot © (2004-08-20 14:40) [4]

Работает только параметры немного другие ищите и обрящите (на форуме где-то было). Или как вариант ставь хук и обнуляй все сигналы...

← →
Игорь Шевченко © (2004-08-20 15:58) [5]

> Программу для интернет кафе. Когда время вышло программа
> будет блокировать клав и мышку.

LockWorkstation ?

← →
sdwsyscoder (2004-08-20 22:44) [6]

А у меня такие варианты (запуск через командную строку винды):

rundll32 keyboard,disable - отключение клавиатуры, действует до следующей перезагрузки.
rundll32 mouse,disable - отключение мыши вплоть до перезагрузки.
rundll32 user,disableoemlayer - сбой системы (!) - выключить все функции ввода-вывода (клавиатура, дисплей, мышь). В результате будет черный экран с курсором и ни на что не реагирующая система, однако Windows продолжает работать.

Жестоко правда, но это так, для прикола.

← →
Adil (2004-08-21 00:55) [7]

rundll32 keyboard,disable - Error loading keyboard the specified module could not be found.
rundll32 mouse,disable- Error loading mouse the specified module could not be found.

← →
DelphiN! © (2004-08-21 06:41) [8]

procedure BlockInput(ABlockInput: boolean); stdcall; external "USER32.DLL";

← →
Adil (2004-08-21 15:07) [9]

Не получается. У меня стоит Win2k SP4

← →
ПЛОВ © (2004-08-22 15:58) [10]

Закрытый на ключ в шкафу будильник, через шкаф проходят кабели клавиатуры и мыши. Когда время выходит, будильник начинает звенеть, замыкает электромагнит а тот отключает клавиатуру и мышу. Блокировка - 100%.

URL http://delphi.icm.edu.pl/ftp/d20free/edkeyb.zip

>>sdwsyscoder (20.08.04 22:44) [6]

>для прикола.

После таких "приколов" приколисты, обычно, начинают к стоматологу обращаться чаще, чем до этого.

>sdwsyscoder (20.08.04 22:44) [6]
В вопросе было разблокировать. А ты попробуй после этого.
>Adil (20.08.04 13:23)
Procedure BlockInput(ABlockInput : boolean); stdcall; external "USER32.DLL";

procedure TMyThread.execute;
begin
while not Terminated do begin
sleep(1000);
setcursorpos(100,100);
BlockInput(true)
end;
end;
Вызов Lock
if th = nil then th:=TMyThread.Create(false);
Вызов Unlock
if th <> nil then begin
th.Terminate;
th.Free;
th:=nil;
end;
ShowCursor(true);
BlockInput(False);

OFF
Блин, этих прог для инет-кафе... Может выбрать готовую?

>KSergey © (23.08.04 13:46) [14]
Бухгалтерских программ и различных редакторов не меньше, но ведь пишут.
На самом деле основная масса этих программ (покрайней мере я сталкивался с этим года 2 назад) - незаконченные самописки.
А требования у клубов различные. Дебитная, кредитная система работы на компьютере, учет трафика, необходимая отчетность для руководства, надежность от подделки отчета администратором (не видел достаточно надежных систем), возможность учета использования принтера и т.д. и т.п.
А если подойти к программе с точки зрения набора опыта то лучше не придумаешь:
работа с сетью, с БД, NT service, WinAPI уффф... :)

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