...resolve environment variables?

Author: Michael R. Schäfer

Category: System

{************************************************************************
 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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base