Zitat von
wk_one:
Delphi-Quellcode:
function getSysDir():String;
var
sysdir:String;
begin
SetLength(sysdir,254);
GetSystemDirectory(@sysdir[1],length(sysdir));
//---Da die Zeichenkette nun 255 Zeichen lang ist, existieren NULL Zeichen diese werden in nächter Zeile entfernt
Delete(sysdir,pos(chr(0),sysdir),length(sysdir)-pos(chr(0),sysdir)+1);
result :=SysDir+'\';
end;
Was machst´n du da?
GetSystemDirectory liefert die Anzahl der kopierten Zeichen zurück, die termininierende Null
nicht eingeschlossen. Also:
Delphi-Quellcode:
var
s : string;
begin
SetLength(s,MAX_PATH);
SetLength(s,GetSystemDirectory(@s[1],length(s)));
end;