Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.04.2007, 01:09
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание Ребята помогите людям!

Я знаю что таких тем уже на форуме уже навалом но все таки ответ окончательный не получил никто. Братя программеры может кто то из вас папищет программу для отключении/включении клавы окончательно и поставит тут исходник?
А то я уже 2 месяць уже хочю отключить клаву но все равно не получается

ЗАРАНЕЕ БЛАГОДАРЮ!
Ответить с цитированием
  #2  
Старый 01.04.2007, 14:13
Аватар для Ferra
Ferra Ferra вне форума
Местный
 
Регистрация: 12.03.2006
Адрес: Минск
Сообщения: 527
Репутация: 1336
Счастье

Нда... Для этого тока и программы писать... скорее просто функцию...

см:
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
__________________
Нет повести печальнее на свете, чем повесть о заклиневшем Resete.
Ответить с цитированием
  #3  
Старый 01.04.2007, 21:58
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Ребята мне над отключит клаву полностю что кроме мышки ничего не работало
а этот исходник не помогает с кнопкой виндов
Код:
// используемые переменные
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  
Старый 05.04.2007, 23:07
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Ребята хотябы скажите как отключить КЛАВИШУ ВИНДОВС
Ответить с цитированием
  #5  
Старый 06.04.2007, 07:08
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Забавно, но на этот вопрос ответ вот где тут
Ответить с цитированием
  #6  
Старый 11.04.2007, 01:21
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Не получается при отключении выдает ощибку типа клавитура не найдена - еффект нулевой
Ответить с цитированием
  #7  
Старый 11.04.2007, 11:42
Алексей1980 Алексей1980 вне форума
Прохожий
 
Регистрация: 03.03.2007
Сообщения: 25
Репутация: 10
По умолчанию

rundll32 keyboard,enable
запускал через обычный cmd под WinXP
результат : Ошибка при загрузке keyboard, не найден указанный модуль.

А вы на чем сидите, те у кого получилось?
Ответить с цитированием
  #8  
Старый 11.04.2007, 12:56
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Радость Отключение клавиши Windows

Цитата:
Сообщение от Electronic_Arts
Ребята хотябы скажите как отключить КЛАВИШУ ВИНДОВС

Знаю я способ ( сам сделал так,чтоб из игрухи на рабочий стол не вылетать...) , правда вариант этот не слишком... : Просто раскручиваешь клаву и подкладываешь под клавишу что-то , чтоб не нажималась и всё!
Ответить с цитированием
  #9  
Старый 11.04.2007, 21:55
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Rokuell например - как сделать? можно исходник??
Ответить с цитированием
  #10  
Старый 12.04.2007, 15:16
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Радость

Цитата:
Сообщение от Electronic_Arts
Rokuell например - как сделать? можно исходник??

Смеёшься??? Я серьёзно клавиатуру разобрал и подложил под клавишу бумагу свёрнутую, чтоб не нажималась вообще.
Я же говорил , что это способ не для программиста, но надо ведь как-то проблему решить!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter