Und natürlich auch den Empfang des Objektes anpassen:
Delphi-Quellcode:
procedure TApLogCustomModule.APMRecieveMessage(var Msg: TMessage);
var
p : TApLogMessage;
begin
try
p := Pointer(Msg.WParam);
FMessageQueue.Enqueue(p);
while (Cardinal(FMessageQueue.Count) > FMaxBufferElements) do
FMessageQueue.Dequeue().Free();
finally
Msg.Result := 1;
end;
end;
PS.
WParam und LParam sind beide jeweils 32Bit.