"User" Dokumente Verzeichnis finden

[nuclearping]

Über http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx und SHGetSpecialFolderLocation.

Delphi-Quellcode:

{ ************************************************************ }
function GetSpecialPath (AFolder: Integer): String;
{ ************************************************************ }

  { ************************************************************ }
  function PidlToPath (IdList: PItemIdList): String;
  { ************************************************************ }
  begin
    SetLength (Result, MAX_PATH);
    if SHGetPathFromIdList (IdList, PChar (Result)) then
      begin
        SetLength (Result, StrLen (PChar (Result)));
        Result := IncludeTrailingPathDelimiter (Result);
      end
    else Result := '';
  end; // PIdlToPath

  { ************************************************************ }
  function PidlFree (var IdList: PItemIdList): Boolean;
  { ************************************************************ }
  var
    Malloc  : IMalloc;
  begin
    Result := False;
    if IdList = nil then
      Result := True
    else begin
           if Succeeded (SHGetMalloc (Malloc)) and (Malloc.DidAlloc (IdList) > 0) then
             begin
               Malloc.Free (IdList);
               IdList := nil;
               Result := True;
             end;
         end;
  end; // PidlFree

var
  FolderPidl  : PItemIdList;
begin
  Result := '';
  try
    if Succeeded (SHGetSpecialFolderLocation (0, AFolder, FolderPidl)) then
      begin
        Result := PidlToPath (FolderPidl);
        PidlFree (FolderPidl);
      end;
  except
    Result := '';
  end;
end; // GetSpecialPath

User_Documents_Path := GetSpecialPath(CSIDL_COMMON_DOCUMENTS);

[Dunkelbunt27]

Ah, danke.
Ich schau mal ob's geht.

@ nuclearping
Danke, es funktioniert. Es führt mich aber zu C:\Users\Public\Documents. Mit CSIDL_MYDOCUMENTS Kommt man zu C:\Users/User\Documents.

[Sir Rufo]

Für den Sorglos-Zugriff gibt es Link: SpecialFolders
oder auch das hier

[ringli]

Auch wenn die Frage scheinbar schon beantwortet ist: Ab Vista sollte nur noch die Funktion SHGetKnownFolderPath verwendet werden. SHGetSpecialFolderLocation ist eigentlich nur noch aus Kompatibilitätsgründen vorhanden. Hier habe ich mal eine entsprechende Unit gepostet mit der du die Funktion einfach benutzen kannst.

[EDIT]
Die passende Konstante lautet in deinem Fall übrigens FOLDERID_Documents.