Meine Funktion zu ExpandEnvironmentStrings sieht so aus (ich glaub, die hab ich schonmal gepostet):
Delphi-Quellcode:
function ExpandEnvStr(
const sInput:
string):
string;
const
MAXSIZE = 32768;
// laut PSDK sind 32k das Maximum
begin
SetLength(Result, MAXSIZE);
SetLength(Result,
ExpandEnvironmentStrings(PChar(sInput), @Result[1], Length(Result))-1);
//-1 um abschließendes #0 zu verwerfen
end;
Grüße
Dalai