Ein wenig gekürzt bei gleicher funktionsweise abgesehen vom Errorcheck
Delphi-Quellcode:
function ExpandEnvironment(const AInput: string): string;
const
MAXSIZE = 32768;
begin
SetLength(Result, MAXSIZE);
SetLength(Result, ExpandEnvironmentStrings(PChar(AInput), @Result[1], Length(Result)) - 1);
end;
edit
Wobei mir Jasoculs Vorschlag in diesen Zusammenhang auch besser gefällt.