Das Handle ist ungültig

[EWeiss]

Zitat von Dalai:

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