'
Package Conditions' ist auch nur eine String, der in den Compileroptionen angegeben werden muss.
jediapilib.inc gilt nicht für die JwaVista.pas, worin die betreffende Funktion eingesetzt ist.
Werden bei dir die blauen Punkte neben ausführbaren Quelltext angezeigt an Stelle JwsclACL:1495 - AddMandatoryAce ?
Ich habe grad bemerkt, das Windows XP bei der Initialisierung des Context
einen echten Benutzer haben will.
Das im Beispiel angegeben funktioniert daher nur in Vista.
Delphi-Quellcode:
AuthZCtx := TJwAuthContext.CreateBySid(
RMCtx,//const ResourceManager: TJwAuthResourceManager;
[authZSF_Default],//const Flags : TAuthZSidContextFlags;
JwAdministratorsSID,
0,//const ExpirationTime: Int64;
nil//const DynamicGroupArgs: Pointer
);
Windows XP will einen echten Benutzer (keine Gruppe)
Delphi-Quellcode:
AuthZCtx := TJwAuthContext.CreateBySid(
RMCtx,//const ResourceManager: TJwAuthResourceManager;
[authZSF_Default],//const Flags : TAuthZSidContextFlags;
JwSecurityProcessUserSID,
0,//const ExpirationTime: Int64;
nil//const DynamicGroupArgs: Pointer
);
Wenn der aktuelle Benutzer in der Gruppe Administrator ist, sollte es keine Veränderung geben. Wenn doch kann man alle Vorkommen von JwAdministratorsSID durch JwSecurityProcessUserSID ersetzen.