Hook auf VK_ADD macht Probleme

[lbccaleb]

Hey,

ich habe eine Hook erstellt, ähnlich nach nem Bsp. von toms hier in der DB (leider kann ich dieses irgendwie gerade nicht mehr finden, poste den Link wenn es mir wieder unterkommt).

Der Hook ersetzt das Numernblock "+" mit der Tabulator Taste, soweit so gut, nur leider habe ich jetzt das Problem das auch bei druck auf das normale "k" die Tabulatortaste ausgeführt wird! Woran kann das liegen? haben die Tasten die selben Codes?

Alles andere funktioniert prima!

Für Tipps, oder hilfen währe ich sehr dankbar.

[Luckie]

Tja, ohne deinen Code zu kennen, woher sollen wir da wissen, was da falsch ist?

[lbccaleb]

Das nicht mein Code, das eher toms Code, mit ein paar änderungen für mich, soll nur meiner Bequemlichkeit dienen

So sieht das ganze aus:

Delphi-Quellcode:

function MsgFilterFunc(Code: Integer; wParam, lParam: Longint): Longint;
var
  MMFHandle: THandle;
  MMFData: PMMFData;
//  Kill: boolean;
begin
  Result := 0;
  MMFHandle := OpenMMF(MMFName);
  if MMFHandle <> 0 then
  begin
    MMFData := MapMMF(MMFHandle);
    if MMFData <> nil then
    begin
      if (Code < 0) or (wParam = PM_NOREMOVE) then
        Result := CallNextHookEx(MMFData.NextHook, Code, wParam, lParam)
      else
      begin

        //Kill := False;
        with TMsg(Pointer(lParam)^) do
        begin
          if wParam = VK_ADD then wParam := VK_TAB;//Kill := True;
        end;
     //   if Kill then TPMsg(lParam)^.message := VK_TAB;

        Result := CallNextHookEx(MMFData.NextHook, Code, wParam, lParam)
      end;
      UnMapMMF(MMFData);
    end;
    CloseMMF(MMFHandle);
  end;
end;

[lbccaleb]

Habe gerade den Beitrag von toms wieder gefunden!
Dort befindet sich der original Code.

Taste sperren

[lbccaleb]

Kann mir da keiner weiter helfen?

[Flocke]

Ich vermisse da in deinem Code irgendwie die Prüfung auf die Art der Meldung, die geschickt wurde...

Delphi-Quellcode:

        with TMsg(Pointer(lParam)^) do
    {->}  if (Message = WM_KEYDOWN) or (Message = WM_KEYUP) then
          begin
            if wParam = VK_ADD then wParam := VK_TAB;//Kill := True;
          end;

[lbccaleb]

Danke für den Tipp!
Jetzt klappt es wunderbar!

Hatte es auch probiert, mit den Abfragen auf die Message, aber immer nur WM_KEYUP oder WM_KEYDOWN. Aber leider nie beide zusammen, ich Schussel!
Manchmal sieht man den Wald vpr lauter Bäumen nicht.