(notonline)-->
without js -- not from a browser, mate!
constant shlwapi = open_dll("shlwapi.dll"),
kernel32 = open_dll("kernel32.dll")
constant xStrDup = define_c_func(shlwapi,"StrDupA",{C_PTR},C_PTR),
xLocalFree = define_c_func(kernel32,"LocalFree",{C_PTR},C_PTR)
constant HelloWorld = "Hello World!"
atom pMem = c_func(xStrDup,{HelloWorld})
?peek_string(pMem)
assert(c_func(xLocalFree,{pMem})==NULL)