Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#1

SHGetSpecialFolderLocation mit CSIDL_PROFILES

  Alt 20. Nov 2005, 08:11
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
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat