SHGetSpecialFolderLocation mit CSIDL_PROFILES

[Sharky]

Hai ihr,

bekommt einer von euch den Pfad zu CSIDL_PROFILES mit diesem Code:

Delphi-Quellcode:

uses
  ShlObj;

function GetShellFolder(CSIDL: integer): string;
var
  pidl: PItemIdList;
  FolderPath: string;
  SystemFolder: integer;
begin
  FolderPath := '';
  SystemFolder := CSIDL;
  if SUCCEEDED(SHGetSpecialFolderLocation(0, SystemFolder, pidl)) then
  begin
    SetLength(FolderPath, MAX_PATH);
    SHGetPathFromIDList(pidl, PChar(FolderPath));
    SetLength(FolderPath, lstrlen(PChar(FolderPath)));
  end;
  Result := FolderPath;
end;

Eigentlich sollte als Result der Pfad zu dem Profileordner kommen. Bei mir scheitert es aber immer bei SHGetSpecialFoler.... Das SUCCEEDED liefert da schon ein False.

Mit ist nicht ganz klar was MS damit meint das dies erst aber Version 6.0 gehen soll. Von was soll es den Version 6.0 sein?

Edit: Habe mal ganz heimlich ein i in ein o geändert