Pfad der "Special Folders" ermitteln

[DeddyH]

Ich hab da auch noch eine Version:

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): String;
begin
  SetLength(Result,MAX_PATH);
  SHGetSpecialFolderPath(0, PChar(Result), Folder, false);
  SetLength(Result,StrLen(PChar(Result)));
end;