[Ama]

Доброе время суток!!!! Я понимаю что тема истерта до дыр, но все же. Вопрос по хуку клавы! Во все примерах почему-то в качестве примера работы с хуком описывается тока так называемый клавиатурный шпиён. Но мне не нужен шпиён. Хук создаю "стандартными" описанными 100 раз примерами, запхнул его в DLL и т.д. Проблема с функцией - фильтром:

Код:

 function KeyMsgProc(Code: integer; wParam: dword;
                     lParam: LongInt): LongInt; stdcall;
   var kn: array[0..50] of Char;

  begin
//   CallNextHookEx(KHook, Code, wParam, lParam);
   if (Code = HC_ACTION) then
    begin
     GetKeyNameText(lParam, kn, SizeOf(kn));
     CurrKey:= String(kn);
     ...
     if (((lParam shr 16) and KF_UP) = 0) and (Pos(CurrKey, ShortC) = 0) then {если кнопка нажата}
      begin
        ....
        GenerateMsg(ShortC); {моя проца которая так странно работает тока почему????? }
        MessageBox(0, PChar(ShortC + '-'), '', 0);
      end
     else
     if (((lParam shr 16) and KF_UP) = KF_UP) then {если кнопка отпущена}
      begin
       .....
      end;
    end;
   Result:= CallNextHookEx(KHook, Code, wParam, lParam);
  end;

Проца GenerateMsg(ShortC) просто обрабатывает присланную ей строку и отправляет сообщения системе:

Код:

...........
       begin
       SendMessage(HWND_BROADCAST, WM_KEYDOWN, doAction, MakelParam(0, 0));
       SendMessage(HWND_BROADCAST, WM_KEYUP, doAction, MakelParam(0, KF_UP));
      end;
...........

Сразу поясню. У меня на работе древнючая клава и мультимедийных кнопок нету. Вот и пытаюсь их заменить сочетаниями. Так вот вопрос: почему када окно вызвающее DLL активно, то проца GenerateMsg(ShortC) работает и все прекрасно, но када окно неактивно проца GenerateMsg(ShortC) почему-то не хошь работать. Думал что если окно не активно то хук не работает, но попробовав, увидел что строка MessageBox(0, PChar(ShortC + '-'), '', 0); выполняется, а значит хук работает и при неактивном окне, но какого.....(!!!!!!) .....компилятор пропускает вызов процы GenerateMsg(ShortC)......