Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2013, 22:39   #11
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Цитата:
Сообщение от Fisherman86 Посмотреть сообщение
С WH_KEYBOARD_LL совсем ничего не происходит.
"Где ваши доказательства?" ©

WH_KEYBOARD_LL в качестве л-параметра возвращает указатель на структуру, где хранится инфа о клавиши, а не сам код клавиши. ИМХО ошибка отсюда свои ноги берёт.

Структура объявляется как
Код:
type
  PKbdDllHookStrukt = ^TKbdDllHookStrukt;  
  _KBDLLHOOKSTRUCT = record  
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD
  end;
  TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;
Ф-ия примерно такая (выпилил из старой программы)
Код:
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
var tmp: DWORD;
begin
    if code<0 then begin 
       GlobalKeyBoardHook:=CallNextHookEx(CurrentHook,code,wParam,lparam); 
       Exit;
    end;
    if wParam <> $0100 then exit;//тут умышлено не передавалось дальше
    tmp := PKbdDllHookStrukt(LParam)^.vkCode;
    //windows.MessageBoxA(0,'',pchar(inttostr(tmp)),0);
    CallNextHookEx(CurrentHook,code,wParam,lparam); 
    GlobalKeyBoardHook:=0//зачем делал именно так уже не помню :)
end;
Ставится так
Код:
SetWindowsHookEx(13{WH_KEYBOARD_LL},@GlobalKeyBoardHook,HInstance,0)
P.S. Это только пример для одной конкретной цели, не более

Последний раз редактировалось eoln; 27.01.2013 в 22:43.
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Screenshot на WInAPI susel Win Api 3 28.04.2010 21:04
Зациклился ScreenShot Streetmagic Мультимедиа в Delphi 1 10.04.2010 17:42
Screenshot W0LF Общие вопросы Delphi 4 10.10.2009 00:47
screenshot nicky Общие вопросы C/C++ 2 12.04.2009 14:12