Root in einen String "packen"

[Duffy]

Hallo F.W.,
um den Pfad der "Eigene Dateien" herauszubekommen, habe ich hier mal zwei Funktionen.
1. Generelle Funktion um spezielle Pfade zu holen

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): string;
var
  aPidl: PItemIDList;
  fLinkDir: string;
begin
  if SUCCEEDED(SHGetSpecialFolderLocation(Application.Handle, Folder, aPidl)) then
  begin
    SetLength(fLinkDir, MAX_PATH);
    SHGetPathFromIDList(aPidl, PChar(fLinkDir));
    SetLength(fLinkDir, StrLen(PChar(fLinkDir)));
    Result := fLinkDir;
  end;
end;

2. Die Funktion um den Pfad des Ordner ""Eigene Dateien" zu holen

Delphi-Quellcode:

function GetPersonalFolder: string;
begin
  Result := GetSpecialFolder(CSIDL_PERSONAL);
end;

noch die Unit "ShlObj" einbinden und das wars
bye