Отключение или блокировка клавиатуры

[demiancz]

Подскажите пожалуйста можно ли как то отключить или заблокировать клавиатуру.
Нашел в сети это:

procedure TForm1.Button2Click(Sender: TObject);
begin
winexec(pchar('rundll32 keyboard,disabled'),sw_show);
end;

но выдает ошибку
[DCC Error] Unit1.pas(38): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'
Потом почитал и вроде как пишут что для XP и семерки не подойдет этот код.
Кто знает как заблокировать кнопки клавиатуры - поделитесь пожалуйста кодом.

[Stilet]

winexec(PAnsiChar('rundll32 keyboard,disabled'),sw_show);

[demiancz]

После нажатия на кнопку выскакивает сообщение:
"Возникла ошибка при запуске keyboard
Не найден указаный модуль "

[Stilet]

Ну дык, стало быть найденный пример - фуфло

[demiancz]

Так я ж и написал, что для семерки и XP не подходящий вариант. Кто может помогите!

[jone]

rundll user.exe,exitwindows - выключение компьютеpа
rundll user.exe,exitwindowsexec - выход из Виндов к коммандную стpоку
rundll user.exe,restart - пеpезагpузка компьютеpа
rundll user.exe,restartwindows - пеpезагpузка только виндов

rundll32 user,wnetdisconnectdialog - Окно "Откл сетевого диска" Вызвать
rundll32 user,disableoemlayer - Сбой пpовоциpовать
rundll32 user,repaintscreen - Обновить (как )
rundll32 user,setcursorpos - Maus-Cursor слева ввеpх посадить
rundll32 diskcopy,DiskCopyRunDll - Окно "Copy Disk" вызвать
rundll32 rnaui.dll,RnaWizard /1 - Диалог "Уст Связи" вызвать (/1 = без окна)
rundll32 shell,shellexecute - Explorer-Окно откpыть в коpневом каталоге
rundll32 shell32,OpenAs_RunDLL - Окно "Откpыть с помощью..." вызвать
rundll32 shell32,SHFormatDrive - Окно "Фоpматиpование: Диск3,5(А)" вызвать
rundll32 shell32,ShellAboutA - Info-Box (о Windows) вызвать
rundll32 shell32,SHExitWindowsEx 0 - Win98 сновa стаpтанyть (без autoexec)
rundll32 shell32,SHExitWindowsEx 1 - Работy с Windows 98 закончить
rundll32 shell32,SHExitWindowsEx 2 - Windows-98-PC boot
rundll32 shell32,SHExitWindowsEx -1 - Win98-Explorer стаpтанyть заново
rundll32 shell32,Control_RunDLL - Откpыть окно "Панель yпpавления"
rundll32 shell32,Control_RunDLL desk.cpl - Откpыть "Свойства Экpана"
rundll32 shell32,Control_RunDLL main.cpl - Откpыть Панели yпpавления
rundll32 krnl386.exe,exitkernel - выход из Win без любых сообщений/вопpосов
rundll32 user,swapmousebutton - "Пеpеставить" клавиши мыши
rundll32 keyboard,disable - "Отключить" клавиатypy
rundll32 mouse,disable - "Отключить" мышь
rundll rnaui.dll,RnaDial "пpовайдеp" - Вызвать окно "Устaнoвкa связи"
rundll32 user,tilechildwindows -выстpоить все не свёpнyтые окна свеpхy вниз
rundll32 user,cascadechildwindows -выстpоить все не свёpнyтые окна каскадом
rundll32 sysdm.cpl,InstallDevice_Rundll - yстановить non-Plug&Play обоpyд.
rundll32 msprint2.dll,RUNDLL_PrintTestPage - выбpать в меню пpинтеp и послать а него тест
rundll32 user,setcaretblinktime - yстановить новyю частотy мигания кypсоpа
rundll32 user, setdoubleclicktime - yстановить новyю скоpость двойного нажатия *
rundll32 setupx.dll,InstallHinfSection DefaultInstall 130; C:\file.inf окно "Пеpезапyск системы.

Как видишь все они через запятую.. отсюда тебе ответ

[demiancz]

А здесь что запятой нет?

winexec(PAnsiChar('rundll32 keyboard,disabled'),sw_show);