Ordner in den Eigenen Dateien systemweit erzeugen/löschen

[shmia]

Ich würde dies im Ordner C:\Documents and Settings\All Users ablegen.
Um dieses Verzeichnis zu bekommen

Delphi-Quellcode:

s :=GetSpecialFolder(Handle, CSIDL_COMMON_DOCUMENTS);
//Unterverzeichnis \Documents abtrennen
s := ExtractFilePath(s);