Блокировка клавы и мыши + заставка (Это не вирус !!!)

[Небесный]

Пишу клиент-серверное приложение "Интернет кафе", пришел к тому, чтобы клиент блокировал клаву, мышь, ну и рюшкам, плюшкам, можно было бы и скрин с рекламой бросить на весь экран.

Полазив на просторах инета - нашел несколько способов.
Один из них - это работа с реестром, что мне очень и очень даже не понравилось. Клиент завис, - машина стала не доступна. (((

Есть еще один способ.

procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
  // Вызываем функцию из DLL'ки
Пример использования:
procedure TForm1.N1Click(Sender: TObject);
begin
  BlockInput(True);  // (для обратного исхода надо вместо True написать False)
end;

Это способо вродь решает проблему - после перезагрузки машины все вродь обновляется, но есть одно но. Хотелось бы еще сделать ввод комбинации клавиши, где запрашивает пароль - при введенном правильном пароле - клиент клави и мышь разблокируются.
Может кто уже подобное делал, подскажите. )))
Да и чтобы не плодить кучу тем, - есть еще один вопрос:
Хотелось бы сделать во время блокировки еще скрин на весь экран, например в заведомо нужной нам папке лежат файлики(рисунки), по очередно вытягиваем файлы, либо подгружаем все файлы в нужной папке и по-очередно их пролистываем.

Всем благодарю за помощь!

[psycho-coder]

Перехватывайте нажатие клавиш и клацание мышкой по форме. А на нужную комбинацию вешайте разблокировщик, через семафоры. Будет время, примерчик набросаю

upd

Для формы поставь свойство KeyPreview, а в методе onKeyDown формы напиши это

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  MessageBox(Self.Handle, PAnsiChar('Клавиша: ' + IntToStr(Key)), 'Клавиши', MB_OK);
end;

Это чисто пример, дальше сам.

[Небесный]

По ходу обдумывания и поиска в гугле, пришла мысля:

1. Делать форму (заставку) на весь екран, на ее фон вешать что угодно в рекламных целях, по центур ввод пароля и кнопочку ОК.
2. Держать фокус на форме (не передавая его на другие окна) и держать ее всегда поверх остальных окон.
3. Alt+Tab, Alt+Esc и Alt+Ctrl+Del - отключаем.
включаем при раблокировке.

В случае команды из сервера, или парольный доступ - делать форму невидимой и снимать с нее фокус, что-то типа того, но как все это реализовать пока даже не представляю, в силу скудности опыта.

[Небесный]

Сообщение от psycho-coder

Перехватывайте нажатие клавиш и клацание мышкой по форме. А на нужную комбинацию вешайте разблокировщик, через семафоры. Будет время, примерчик набросаю

upd

Для формы поставь свойство KeyPreview, а в методе onKeyDown формы напиши это

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  MessageBox(Self.Handle, PAnsiChar('Клавиша: ' + IntToStr(Key)), 'Клавиши', MB_OK);
end;

Это чисто пример, дальше сам.

Немного позновато заметил ответ.
Таким вот способом не закроешь комбинации клавишь.
Alt+Tab, Alt+Esc и Alt+Ctrl+Del

Если можно эти комбинации перехватывать, может подскажете как?
Еще бог с Alt+Tab, Alt+Esc - не проблема отключить, но вот
Alt+Ctrl+Del - оказалось сущим адом.
Вечер убил, а так решения и не нашел. Реестр просто запрещает вызов диспетчера, это немного не то.
Пробовал искать решение, как вообще отключить клаву, но опять же трудность с вводом пароля будет.
И пришел опять в тупик.

[Человек_Борща]

Где-то видел штуку(dLock), которая при помощи драйвера отключает Ctrl+alt+del

[Вадим Мошев]

Где-то видел штуку(dLock)

Dallas Lock?

[Человек_Борща]

Нет, вот что я имел ввиду: http://www.kassl.de/dwinlock/index.html

[Небесный]

Сообщение от Человек_Борща

Нет, вот что я имел ввиду: http://www.kassl.de/dwinlock/index.html

Здесь серьезно, без бутылки не разобраться, + ко всему триал-версию где-то влепили. (((
Человек_Борща, может все таки поможете разобраться до конца?

[Человек_Борща]

Справка очень даже понятная. Темболее сэмплы кода прилогаются.
изучи dll, сам грузи драйвер.

[Стелс]

чтоб не заморачиваться можно использовать функцию поиска дескриптора окна (FindWindow) и прихлопывать диспетчер задач windows