Hi,
Code:
procedure Move(const Source; var Dest; Count: NativeInt);
Das +1 kommt daher, dass ja noch Platz für das abschließende #00 sein soll.
Hat aber nichts mit FreeMem zu tun.
Der Code läuft garantiert unter D5, D7, D2009, XE8 und 10.1 Starter, nur nicht unter 10.1 Up1.
Und das ist das Problem.
[EDIT]
Ich maches es jetzt so:
Code:
Result := WriteFile(FHandle, Pointer(Msg)^, dwSize, dwBW, nil);
[/EDIT]
DANKE