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
Ok. Werde es berichtigen dann sind alle zufrieden.. selbst wenn es meine auch tut
Mein letzter Post hier
der Rest bitte hier weiter das Ergebnis könnt ihr hier laden.
Es nimmt sonst kein Ende
Danke!
Die 100 muss ich nicht unbedingt haben.
gruss