XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bereiche: Speicherfunktionen
Def FillMemory(3) !KERNEL32,RtlFillMemory
Def MoveMemory(3) !KERNEL32,RtlMoveMemory
Def ZeroMemory(2) !KERNEL32,RtlZeroMemory
Beispiel
Es werden 2 10-Bytes-Puffer zunächst mit 0-Bytes initialisiert,
dann der 1. Puffer mit Sternchen gefüllt, davon die ersten 5 in den
2. Puffer kopiert und schließlich alles testweise ausgelesen
Cls
Declare buf#,buf2#
Dim buf#,10
Dim buf2#,10
ZeroMemory(buf#,10)
ZeroMemory(buf2#,10)
FillMemory(buf#,10,Ord(*))
MoveMemory(buf2#,buf#,5)
Print Komplettes Auslesen von buf1#  :,String$(buf#,0)
Print Auslesen von 5 Bytes aus buf2# :,String$(buf2#,0)
Dispose buf#
Dispose buf2#
WaitInput