[Ama]

Доброе время суток, спецы! Знаю что тема истерзана до дыр, но всетаки есть момент, который я не могу решить. Есть DL в котором я реализовал перехват клавиатуры. Пользовался стандартными методами создания HOOK'а. Вот проца хука и проца обработки хука, реализованной в DLL:

Код:

 function KeyMsgProc(Code: integer; wParam: word;
                     lParam: LongInt): LongInt; stdcall;
   var kn: array[0..50] of Char;
  begin
   if (Code = HC_ACTION) then
    begin
     GetKeyNameText(lParam, kn, SizeOf(kn));
     CurrKey:= StrPas(kn);
     CurrKey:= '|' + CurrKey + '|';
     if (((lParam shr 16) and KF_UP) = 0) and (Pos(CurrKey, ShortC) = 0) then
      begin
       ShortC:= ShortC + '+' + CurrKey;
       if ShortC[Length(ShortC)] = '+' then Delete(ShortC, Length(ShortC), 1);
       if ShortC[1] = '+' then Delete(ShortC, 1, 1);
       GenerateMsg(ShortC);
      end
     else
     if (((lParam shr 16) and KF_UP) = KF_UP) then
      begin
       GetKeyNameText(lParam, kn, SizeOf(kn));
       CurrKey:= StrPas(kn);
       CurrKey:= '|' + CurrKey + '|';
       Delete(ShortC, Pos(CurrKey, ShortC), Length(CurrKey));
       CurrKey:= '';
       if (ShortC <> '') then
        begin
         if (ShortC[Length(ShortC)] = '+') then Delete(ShortC, Length(ShortC), 1);
         if (ShortC[1] = '+') then Delete(ShortC, 1, 1);
        end;
      end;
    end;
   Result:= CallNextHookEx(KHook, Code, wParam, lParam);
  end;

 procedure RunStopHook(State: boolean); stdcall; export;
   begin
    if (KHook <> 0) and State then exit;
    if State then
     begin
      ShortC:= '';
      KHook:= SetWindowsHookEx(WH_KEYBOARD, @KeyMsgProc, HInstance, 0);
     end
    else
     begin
      if KHook = 0 then exit;
      UnHookWindowsHookEx(KHook);
      KHook:= 0;
     end;
   end;

где GenerateMsg(ShortC) - моя проца обработки строки, которая является пародием сочетания клавиш. А переменная ShortC это просто строка. Так вот вопрос: почему этот хук работает тока тада, када активно окно, которым я запускаю хук, но если в процу GenerateMsg(ShortC) вставить строку типа MessageBox(0, ShortC, '', MB_OK), то сообщения генерируются даже при неактивном окне, т.е. я делаю вывод что проца GenerateMsg(ShortC) выполняется всегда, однако почему-то если нет строки MessageBox то проца GenerateMsg(ShortC) не выполняется, мож я что недопонимаю, почему так странно работает Хук?

[Bargest]

Наверно ошибка в самой GenerateMsg(ShortC)

[Ama]

Там ошибки быть не может.

Код:

  procedure GenerateMsg(ShortCut: string); stdcall;
   begin
//    MessageBox(0, PChar(ShortCut), '', 0);
      if ShortCut = ххх then
       begin
         ....
       end
      else
      if ShortCut = ууу then
       begin
        ...
       end;
   end;

Почему я уверен, так это потому что, када окно активно то действия между begin и tnd выполняются, но када такое же значение ShortCut и окно не активно, то никакой реакции

[Bargest]

Очень странно. У меня в одной программке вроде хук на клаву ставился так же (она блочила все комбинации типа Alt+F4, Alt+Tab и т.д.), но при этом все срабатывало даже при неактивном окне. У меня даже из-за этого траблы были - не мог ее отрубить, когда соскакивала активность куда-нить
Возможно код выполняется, но из-за неактивности формы этого не заметно? ^_^