Mega Code Archive

 

Categories / Delphi / System

 

Resolve environment variables

{************************************************************************ Replaces all environment variables with their correspondig values Ersetzt im übergebenen String alle Umgebungsvariablen durch deren Inhalt ************************************************************************ Example, Beispiel: EditPath.Text := ExpandEnvironment('%systemroot%\Temp\'); Result under NT, Ergebnis unter WIN NT: C:\WINNT\Temp\ } function ExpandEnvironment(const strValue: string): string; var chrResult: array[0..1023] of Char; wrdReturn: DWORD; begin wrdReturn := ExpandEnvironmentStrings(PChar(strValue), chrResult, 1024); if wrdReturn = 0 then Result := strValue else begin Result := Trim(chrResult); end; end;