Reading REG_EXPAND_SZ [solved/nevermind]
Posted: Thu Sep 15, 2011 9:55 pm
(n'er mind -- wasn't setting a type properly)
http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
Case #REG_SZ, #REG_EXPAND_SZ
Code: Select all
EnableExplicit
Procedure.s ExpandEnvironmentString(String.s)
Protected ExpandString.s, Length.i
Length = ExpandEnvironmentStrings_(@String, #Null, #Null)
ExpandString = Space(Length)
ExpandEnvironmentStrings_(@String, @ExpandString, Length)
ProcedureReturn ExpandString
EndProcedure
Debug ExpandEnvironmentString("%ProgramFiles%")
Debug ExpandEnvironmentString("%HomeDrive%%HomePath%")
Debug ExpandEnvironmentString("%AppData%\Meine Firma")
SetEnvironmentVariable("MyExePath", GetPathPart(ProgramFilename()))
Debug ExpandEnvironmentString("%MyExePath%")