Einzelnen Beitrag anzeigen

Chris P

Registriert seit: 8. Mär 2004
230 Beiträge
 
Delphi 7 Enterprise
 
#32

Re: Problem mit Nachricht aus DLL

  Alt 9. Jul 2004, 12:48
Ich habe das jetzt so gemacht wie Neolithos:

Delphi-Quellcode:
function MouseHookFunc(Code: Integer; dwmsg: Cardinal; pMousedata: PMOUSEHOOKSTRUCT): LRESULT; stdcall;
var
   pt : TSmallPoint;
begin
  // Nachricht auswerten
  if Code >= 0 then
  begin

        hMap := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MMF');
        HookRec := MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
        if HookRec <> nil then
        begin
           pt := PointToSmallPoint(pMousedata^.pt);
           PostMessage(HookRec.AppHnd, WM_MOUSEHOOK, dwmsg, PCardinal(@pt)^);
        end;
       UnmapViewOfFile(HookRec);
       CloseHandle(hMap);
  end
  else
     Exit;
  //Nachricht an Fenster weiterleiten
    Result := CallNextHookEx(hMouseHook, Code, dwmsg, Integer(pMousedata));
end;
Aber in der Zeile mit POSTMESSAGE kommt eine Fehlermeldung:

"Operator oder Semikolon fehlt"

Wo liegt der Fehler?

@neolithos:

Wie sieht deine Projektdatei aus??
  Mit Zitat antworten Zitat