Reading REG_EXPAND_SZ [solved/nevermind]

[jassing]

(n'er mind -- wasn't setting a type properly)

[STARGÅTE]

REG_EXPAND_SZ same like REG_SZ

REG_EXPAND_SZ means only that, the string can have environment variables:

so add:

Code: Select all

Case #REG_SZ, #REG_EXPAND_SZ

example for expand environment string

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%")