Windows-Verzeichnis zu erhalten

Windows-Verzeichnis zu erhalten

Windows-Verzeichnis zu erhalten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

So finden den Pfad des Windows-Verzeichnisses.
Funktion WindowsDirectory: String;
var
Puffer: Array [0..Max_path] char;
beginnen
FillChar (Buffer, Max_Path + 1, 0);
GetWindowsDirectory(Buffer,Max_path);
Ergebnis: = String(Buffer);
Wenn Result[Length(Result)] <> ' \' then Result: = Ergebnis + ' \';
Ende;