Page 1 of 1

Reading REG_EXPAND_SZ [solved/nevermind]

Posted: Thu Sep 15, 2011 9:55 pm
by jassing
(n'er mind -- wasn't setting a type properly)

Re: Reading REG_EXPAND_SZ

Posted: Thu Sep 15, 2011 10:01 pm
by 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%")