;Autor: STARGÅTE

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