SHGetFolderPath -> TOKEN_DEFAULTUSER -> Undef. Bezeichner

[MCXSC]

Hallo!

Ich habe eine Frage zu dem Tutorial "Entwicklung für Windows Vista", bzw. mit dem Part "Wohin mit den Dateien?".

Und zwar habe ich folgenden Delphi-Code:

Delphi-Quellcode:

uses ShlObj, SysUtils;

function GetSpecialFolder(const AFolder: Integer): string;
var
  path: string
begin
  SetLength(path, 250);
  SHGetFolderPath(Application.Handle, AFolder, TOKEN_DEFAULTUSER, 0, PChar(path);
  result := PChar(path);
end;

Problem ist nun, dass "TOKEN_DEFAULTUSER" ein undefinierter Bezeichner ist; Google sagt mir dazu aber nichts... Jemand hier vielleicht eine Idee?

Danke,
MCXSC

[Fridolin Walther]

Aus der Dokumentation zu SHGetFolderPath:

Zitat:

Assigning the hToken parameter a value of -1 indicates the Default User.

Entsprechend:

Delphi-Quellcode:

const
  TOKEN_DEFAULTUSER = -1;

[MCXSC]

Hm, dann bekomme ich die Meldung "Konstantenausdruck verletzt untere Grenzen"...

[Fridolin Walther]

Sorry, muss natürlich so heißen:

Delphi-Quellcode:

const
  TOKEN_DEFAULTUSER = Cardinal(-1);

[MCXSC]

Ah, danke schön!³

[toms]

oder

Delphi-Quellcode:

const 
  TOKEN_DEFAULTUSER = $FFFF;

[Fridolin Walther]

Zitat von toms:

Delphi-Quellcode:

const 
  TOKEN_DEFAULTUSER = $FFFF;

Wenn dann schon

Delphi-Quellcode:

const
  TOKEN_DEFAULTUSER = $FFFFFFFF;

Da hToken als THandle (-> DWORD) übergeben wird, würde bei Dir dann aus dem Word $FFFF ein $0000FFFF werden, was nicht -1 ist. Kannst es gerne auch kurz selbst nachprüfen .

[dietru]

Hallo,

es ist zwar eine Weile her, ich muss die Sache aber nochmal aufwärmen. Ich hatte SHgetfolderpath vermutlich unter W7 zuletzt benutzt. Da hatte ich bei TOKEN_DEFAULT_USER eine 1 stehen und bekam das Verzeichnis des aktuellen users zurück. Habe jetzt Delphi 10.3 unter Win10/64. Dort klappt das nicht mehr.
Was muss ich jetzt eintragen, die Konstante heisst vermutlich TOKEN_CURRENTUSER?

Vielen Dank und freundliche Grüße
Dieter

[Dalai]

@dietru:
Einfach mal mit einer 0 probieren. Steht übrigens auch so in der Doku zu SHGetFolderPath (die weiter oben auch schon verlinkt ist):

Zitat:

This parameter is usually set to NULL [...]

Grüße
Dalai

[dietru]

Hallo, Dalai,

danke, es hat geklappt.

MfG
Dieter