Einzelnen Beitrag anzeigen

MathiasSimmack
(Gast)

n/a Beiträge
 
#10

Re: prüfen ob MSXML4 installiert ist

  Alt 2. Okt 2003, 21:43
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;
  Mit Zitat antworten Zitat