Mega Code Archive

 

Categories / Delphi / Examples

 

Resolve environment variables

Title: 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;