Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
25. Aug 2006
Och, laß dir Zeit ... bis XP läuft es anscheinend ja ganz gut und Vista gibt's "noch" nicht.
Wollt daß nur solange noch "beheben", wie ich wenigstens ä bissl in der Materie drin bin ... glaub nicht, daß ich sowas so schnell nochmal machen/gebrauchen werde ._.
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
25. Aug 2006
Aber nur die "neue" Version (jetzt wo man och noch zwischen 'nem Benutzer und seinen Rechten unterscheiden muß -.-'' ).
Bei der "alten" Variante sollte daß IsAdmin doch noch stimmen?
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
25. Aug 2006
@Nico:
Dat is aus deiner (alten) Variante heraus entstanden ... was genau würdest du jetzt noch ändern wollen?
kann's grad nich testen, aber dieses SE_GROUP_ENABLED hab'sch erstma reingemacht :roll:
For Loop := 0 to TokenInformation^.GroupCount - 1 do
If (TokenInformation^.Groups.Attributes and SE_GROUP_ENABLED <> 0)
and EqualSid(TokenInformation^.Groups.Sid, AdminSid) Then Begin
...