DO decl
 
LOCAL lcSource, lcTarget, hMemory
lcSource = "Jack and Jill went up a hill"
hMemory = StrDup(lcSource)
 
IF hMemory <> 0
    ? "Pointer to a new string:", hMemory
 
    * copying from a pointer to a VFP string
    lcTarget = SPACE(250)
    = StrCpy (@lcTarget, hMemory)
    ? "Transferred string:", LEFT(lcTarget, AT(Chr(0), lcTarget)-1)
 
    * MSDN: The calling application must free this memory 
    * by calling the LocalFree function on the pointer 
    * returned by the call to StrDup. 
    = LocalFree (hMemory)
ELSE
* error
ENDIF
 
PROCEDURE  decl
    DECLARE INTEGER LocalFree IN kernel32 INTEGER hMem
    DECLARE INTEGER StrDup IN shlwapi STRING lpsz
    DECLARE INTEGER StrCpyW IN shlwapi AS StrCpy;
        STRING @psz1, INTEGER psz2