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