Pfad der "Special Folders" ermitteln

[HannosG]

@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;