Problem mit Nachricht aus DLL

[Chris P]

Hier ist ein Ausschnitt aus der DLL:

Delphi-Quellcode:

function MouseHookFunc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  { Nachricht an Fenster weiterleiten }
  Result := CallNextHookEx(hKeyHook, Code, wParam, lParam);

  { Nachricht auswerten }
  if Code >= 0 then
  begin

        hMap  := OpenFileMapping(FILE_MAP_WRITE, False, 'MMF');
        HookRec := MapViewOfFile(hMap, FILE_MAP_WRITE, 0, 0, 0);
        if HookRec <> nil then
           hApp  := HookRec.AppHnd;

           SendMessage(hApp, WM_MOUSEHOOK, wparam, lParam);

  end
  else
     Exit;
end;