@Popov
Kürzer hinbekommen ist kein Problem, nur hat das mit dem "IMalloc" und dem Freigeben schon seinen Sinn.
3. IMalloc, SHGetMalloc() 
Pfad der "Special Folders" ermitteln
Die Funktion SHGetSpecialFolderPath belegt eben keinen Speicher für eine "ItemIDList".
@Apollonius
Zitat von
Apollonius:
Allerdings würde ich die kapselnde Funktion anders schreiben. So kriegt man einfach zu leicht ein Speicherleck. Besser wäre es, die Funktion einen String zurückgeben zu lassen und den PChar als lokale Variable wieder freizugeben.
Da muss ich dir zustimmen.
OK, die Funktion beginnt zu wachsen.
Delphi-Quellcode:
function GetSpecialFolder(Folder: Integer): String;
var
Path: PChar;
begin
GetMem(Path,MAX_PATH);
If SHGetSpecialFolderPath(0, Path, Folder, false)
then Result:=Path
else Result:='';
FreeMem(Path);
end;