RosettaCodeData/Task/Call-a-foreign-language-function/Mathematica/call-a-foreign-language-function.math

Needs["NETLink`"];
externalstrdup = DefineDLLFunction["_strdup", "msvcrt.dll", "string", {"string"}];
Print["Duplicate: ", externalstrdup["Hello world!"]]