Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 09.08.2008, 10:46   #1
xshStasX
 
Регистрация: 09.08.2008
Сообщений: 4
Вопрос Хук на клавиатуру

Есть такая ловушка
(*----------------------------------------------------------------------*)
Код:
Library Hook;
Uses
Windows,Messages,Dialogs,sysutils;
var
H: THandle;
Function HookProc(Code:Integer;Wparam:Word;Lparam:Longint): Integer;stdcall;
begin
if (Code=HC_ACTION)and((Lparam and wm_char)=0) then
ShowMessage(chr(Wparam));
CallNextHookEx(h,code,Wparam,Lparam);
end;
procedure SetHook;
begin
h:=SetWindowsHookEx(WH_KEYBOARD,@hookproc,HInstanc e,0);
end;
Procedure DelHook;
begin
UnhookWindowsHookEx(H);
end;
exports
SetHook,DelHook;
begin
end.
(*----------------------------------------------------------------------*)
и программа которая устанавливает ету ловушку в системе.
Но в этой ловушки есть один большой минус а именно нельзя узнать регистр клавиш(тоесть большая буква или маленькая) и все которые она
показывает английские.
Как сделать такую ловушку чтоб она более точно определяла нажатую клавишу в и также учитывала раскладку клавиатуры????

Последний раз редактировалось Stilet; 11.08.2008 в 11:25.
xshStasX вне форума Ответить с цитированием
Старый 09.08.2008, 16:56   #2
Minimus
Пользователь
 
Аватар для Minimus
 
Регистрация: 03.08.2008
Сообщений: 43
По умолчанию

Я где-то уже отвечал на этот вопрос в другом разделе. Совсем недавно.
Minimus вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Хук (hook) на клавиатуру eoln Win Api 17 03.05.2008 18:35
com-программа, которая блокирует клавиатуру Белка Assembler - Ассемблер 2 26.11.2007 15:37