Problem mit Nachricht aus DLL

[TStringlist]

Wieso? wenn ich das ganze mit MakeLParam() ausschreiben muss, dann brauche ich trotzdem immer noch mindestens 4 ganze Anschläge mehr. Ergo: Etwas schneller, und was anderes schrieb ich ja auch nicht, ist immer noch meine Version.

Gut, MakeWParam() etc. mag es auch noch geben, aber bei deiner versuchten Verknüpfung von beidem bleibt doch nur noch mehr der Gedanke:


..immer diese wahrhaft großen Lehrer der Menschheit und ihren glorreichen Formulierungen & Effekthaschereien! Gott möge sie segnen!

*g*

[Chris P]

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??

[TStringlist]

wenn du die PostMessage-Zeile so schreibst:

Code:

PostMessage(HookRec.AppHnd, WM_MOUSEHOOK, dwmsg, integer(pt));

müsste sie stimmen. Darin sollte also nun kein Pointer mehr auf irgendwelche Koordinatenwerte enthalten sein, sondern eben nur noch mehr der eigentliche Koordinatenwert selbst.

[neolithos]

@Chris P:
Du hast eine PM.

Mit meinem Project.

[Chris P]

@Neolithos:

Vielen Dank.

Der Hook ist sehr gut!!!