%..% durch Ergebnis von GetEnvironmentVariable(..) ersetzen

[marabu]

Ich habe den Fehler nachvollziehen können - hier der korrigierte Code:

Delphi-Quellcode:

function ExpandEnvStr(const szInput: String): String;
begin
  SetLength(Result, ExpandEnvironmentStrings(pChar(szInput), nil, 0));
  ExpandEnvironmentStrings(pChar(szInput), @Result[1], Length(Result));
  Result := StrPas(@Result[1]);
end;

Gute Nacht

marabu