![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Я знаю что таких тем уже на форуме уже навалом но все таки ответ окончательный не получил никто. Братя программеры может кто то из вас папищет программу для отключении/включении клавы окончательно и поставит тут исходник?
А то я уже 2 месяць уже хочю отключить клаву но все равно не получается ЗАРАНЕЕ БЛАГОДАРЮ! ![]() |
|
#2
|
||||
|
||||
|
Нда... Для этого тока и программы писать...
скорее просто функцию...см: http://www.delphiworld.narod.ru/base...rd_on_off.html http://www.delphiworld.narod.ru/base...f_numlock.html http://www.delphiworld.narod.ru/base/set_led_state.html http://www.delphiworld.narod.ru/base/klava_disable.html http://www.delphiworld.narod.ru/base...lt_delete.html http://www.delphiworld.narod.ru/base...hook_keys.html |
|
#3
|
||||
|
||||
|
Ребята мне над отключит клаву полностю что кроме мышки ничего не работало
а этот исходник не помогает с кнопкой виндов Код:
// используемые переменные
var
Dummy: integer = 0;
OldKbHook: HHook = 0;
implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
// включение клавы
procedure TForm1.KeyBoardOn(Sender: TObject);
begin
if OldKbHook <> 0 then
begin
UnHookWindowshookEx(OldKbHook);
OldKbHook := 0;
end;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;
// выключение клавы
procedure TForm1.KeyBoardOff(Sender: TObject);
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end; |
|
#4
|
||||
|
||||
|
Ребята хотябы скажите как отключить КЛАВИШУ ВИНДОВС
![]() |
|
#6
|
||||
|
||||
|
Не получается при отключении выдает ощибку типа клавитура не найдена - еффект нулевой
![]() |
|
#7
|
|||
|
|||
|
rundll32 keyboard,enable
запускал через обычный cmd под WinXP результат : Ошибка при загрузке keyboard, не найден указанный модуль. А вы на чем сидите, те у кого получилось? |
|
#8
|
||||
|
||||
|
Цитата:
Знаю я способ ( сам сделал так,чтоб из игрухи на рабочий стол не вылетать...) , правда вариант этот не слишком... : Просто раскручиваешь клаву и подкладываешь под клавишу что-то , чтоб не нажималась и всё! ![]() |
|
#9
|
||||
|
||||
|
Rokuell например - как сделать? можно исходник??
|
|
#10
|
||||
|
||||
|
Цитата:
Смеёшься??? Я серьёзно клавиатуру разобрал и подложил под клавишу бумагу свёрнутую, чтоб не нажималась вообще. Я же говорил , что это способ не для программиста, но надо ведь как-то проблему решить! |