>DECLARE INTEGER ExpandEnvironmentStrings IN kernel32; > STRING lpSrc, STRING @lpDst, INTEGER nSize > >? "COMPSPEC=", GetVar ("%comspec%") >? "COMPUTERNAME=", GetVar ("%computername%") >? "USERDOMAIN=", GetVar ("%userdomain%") >? "USERNAME=", GetVar ("%username%") >? "USERPROFILE=", GetVar ("%userprofile%") >? "SYSTEMROOT=", GetVar ("%systemroot%") >? "TEMP=", GetVar ("%temp%") >? "TMP=", GetVar ("%tmp%") >? "PATH=", GetVar ("%path%") > >FUNCTION GetVar(lcVarname) > LOCAL lnBufferSize, lcResult > lnBufferSize = 2048 > lcResult = SPACE(lnBufferSize) > lnResult = ExpandEnvironmentStrings(lcVarname, @lcResult, lnBufferSize) >RETURN IIF(lnResult > 0, LEFT(lcResult, AT(Chr(0), lcResult)-1), '') >>