#DEFINE GMEM_FIXED     0
#DEFINE GMEM_MOVEABLE  2
DO decl
 
    LOCAL lcTarget, lcSource, lnAllocSize, hMem, lnAddr
 
    lcSource = "Copying a string through an allocated memory object"
    lnAllocSize = Len(lcSource)
    lcTarget = SPACE(lnAllocSize) && the destination string is empty
 
    ? "*** Before"
    ? "Source string:     ", lcSource
    ? "Destination string:", lcTarget
    ?
 
    * allocating an amount of memory capable of storing
    * the source string (not Unicode)
    hMem = GlobalAlloc (GMEM_MOVEABLE, lnAllocSize)
 
    IF hMem <> 0
 
        * lock the memory block to get its address
        * WinNT: both can be identical
        lnAddr = GlobalLock (hMem)
        ? "Memory object handle:", hMem
        ? "Memory block address:", lnAddr
        ?
 
        DECLARE RtlMoveMemory IN kernel32 As String2Heap;
            INTEGER Destination, STRING @ Source,;
            INTEGER nLength
 
        * copying source string -> allocated memory object
        = String2Heap (lnAddr, @lcSource, lnAllocSize)
 
        * every time you must re-declare this function
        * because this time you call with different parameter types
        DECLARE RtlMoveMemory IN kernel32 As Heap2String;
            STRING @ Destination, INTEGER Source,;
            INTEGER nLength
 
        * copying allocated memory object -> destination string
        = Heap2String (@lcTarget, lnAddr, lnAllocSize)
 
        * testing the results
        ? "*** After"
        ? "Source string:     ", lcSource
        ? "Destination string:", lcTarget
 
        * releasing the medium
        = GlobalUnlock (hMem)
        = GlobalFree (hMem)
    ENDIF
 
PROCEDURE  decl
    DECLARE INTEGER GlobalFree IN kernel32 INTEGER hMem
 
    DECLARE INTEGER GlobalAlloc IN kernel32;
        INTEGER wFlags, INTEGER dwBytes
 
    DECLARE INTEGER GlobalLock IN kernel32 INTEGER hMem
    DECLARE INTEGER GlobalUnlock IN kernel32 INTEGER hMem