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

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

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

Как блокировать клавиатуру и мышку [D6, Win2k]

Adil © (2004-08-20 13:23:00)
Как блокировать клавиатуру и мышку и как отменить блокировку??

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

KSergey (2004-08-23 13:46:00) [2]
OFF
Блин, этих прог для инет-кафе... Может выбрать готовую?

atruhin (2004-08-23 13:43:00) [3]
>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);

VMcL (2004-08-23 10:12:00) [4]
>> sdwsyscoder (20.08.04 22:44) [6]

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

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

Vit@ly (2004-08-22 16:51:00) [5]
URL http://delphi.icm.edu.pl/ftp/d20free/edkeyb.zip

ПЛОВ (2004-08-22 15:58:00) [6]
Закрытый на ключ в шкафу будильник, через шкаф проходят кабели клавиатуры и мыши. Когда время выходит, будильник начинает звенеть, замыкает электромагнит а тот отключает клавиатуру и мышу. Блокировка - 100%.

Adil (2004-08-21 15:07:00) [7]
Не получается. У меня стоит Win2k SP4

DelphiN! (2004-08-21 06:41:00) [8]
procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';

Adil (2004-08-21 00:55:00) [9]
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.

sdwsyscoder (2004-08-20 22:44:00) [10]
А у меня такие варианты (запуск через командную строку винды):

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

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

Игорь Шевченко (2004-08-20 15:58:00) [11]

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

LockWorkstation ?

[lamer]Barmaglot (2004-08-20 14:40:00) [12]
Работает только параметры немного другие ищите и обрящите (на форуме где-то было). Или как вариант ставь хук и обнуляй все сигналы...

Adil (2004-08-20 14:22:00) [13]
Это для Win9x на 2k не работает

Adil (2004-08-20 14:01:00) [14]
Нет. Не вирус. Программу для интернет кафе. Когда время вышло программа будет блокировать клав и мышку.

[lamer]Barmaglot (2004-08-20 13:36:00) [15]
Вирусы пишем?

FAQ?

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

Наверх

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