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"