constant shlwapi = open_dll("shlwapi.dll")
constant xStrDup = define_c_func(shlwapi,"StrDupA",{C_PTR},C_PTR)
constant kernel32 = open_dll("kernel32.dll")
constant xLocalFree = define_c_func(kernel32,"LocalFree",{C_PTR},C_PTR)
constant HelloWorld = "Hello World!"

atom pMem = c_func(xStrDup,{HelloWorld})
?peek_string(pMem)
if c_func(xLocalFree,{pMem})!=NULL then ?9/0 end if