Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

[emsländer]

Zitat von Luckie:

Also 7Zip kann auch rar entpacken.

Code:

Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)

Aber warum machen wir das eigentlich?

Weil ich festgestellt habe, das diese Funktion:

Delphi-Quellcode:

function GetShellFolder(CSIDL: integer): string;
var
  pidl                   : PItemIdList; 
  FolderPath             : string;
  SystemFolder           : Integer; 
  Malloc                 : IMalloc; 
begin 
  Malloc := nil; 
  FolderPath := ''; 
  SHGetMalloc(Malloc); 
  if Malloc = nil then 
  begin 
    Result := FolderPath; 
    Exit; 
  end; 
  try 
    SystemFolder := CSIDL; 
    if SUCCEEDED(SHGetSpecialFolderLocation(0, SystemFolder, pidl)) then 
    begin 
      SetLength(FolderPath, max_path); 
      if SHGetPathFromIDList(pidl, PChar(FolderPath)) then 
      begin 
        SetLength(FolderPath, length(PChar(FolderPath))); 
      end; 
    end;
    Result := FolderPath; 
  finally 
    Malloc.Free(pidl); 
  end;
end;

mit dem Übergabewert 46 (CSIDL_COMMON_DOCUMENTS) bei mir bei Windows XP64 einen Leerstring zurückgibt.

Gruss

EL