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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2013, 17:40   #1
varich
Пользователь
 
Регистрация: 01.03.2013
Сообщений: 22
По умолчанию непонятки с WM_KEYDOWN

итак есть ф-я перехвата WM_KEYDOWN:
Код:
 function CallWndProc( nCode:integer; wParam:wparam; lParam:longint ):longint;stdcall;
 BEGIN
 setwindowtext(hw1,pansichar(   inttostr(nCode)+' '+inttostr(wParam)+' '+inttostr(lParam)   ));
/ESC= 27, 65537 //F1=112, 3866625 
 result:=0;
 if nCode>=0 then
  begin
 if (wparam=112) and (lparam=540737537) then begin
 //   messagebox(0,'отсылаю нажатие','ОК',mb_OK);
   postmessage( hw,WM_KEYDOWN,112, 3866625);
   postmessage( hw,WM_char,112, 3866625);
   postmessage( hw,WM_KEYUP,112, 3866625);
   end;
 end;
 if nCode<0 then result:=CallNextHookEx(syshook,ncode,wparam,lparam);
 end;
эта функция отправляет нажатие F1 при нажатии ALT+F1. влом было считать флаги сканы и тд поэтому в postmessage засовываю циферки из эксперимента. ФУНКЦИЯ РАБОТАЕТ, НО только если раскомментировать messagebox(0,'отсылаю нажатие','ОК',mb_OK);знаю функция кривая но почему без мессаджбокса не робит?

Последний раз редактировалось Stilet; 18.05.2013 в 19:02.
varich вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить символ из кода нажатой клавиши (WM_KEYDOWN) xrob Win Api 15 02.01.2013 15:57
wm_keydown Артэс Win Api 7 09.10.2012 22:20
Не срабатывает WM_KEYDOWN Sylvos Win Api 3 23.02.2012 04:02
SendMessage + WM_KEYDOWN fate Общие вопросы Delphi 6 28.01.2011 23:40
Как сразу после WM_KEYDOWN отправить WM_KEYUP ? Someb7 Win Api 2 17.10.2009 21:50