Admin-Modus

14/11/2011 - 09:40 von Hartwig Constien | Report spam
Hi,

wie kann ich feststellen, ob mein Programm unter Vista oder Win 7 im
Admin-Modus gestartet wurde?

Hang loose, Hartwig
 

Lesen sie die antworten

#1 Wilfried Dietrich
14/11/2011 - 10:13 | Warnen spam
wie kann ich feststellen, ob mein Programm unter Vista oder Win 7 im
Admin-Modus gestartet wurde?




Public gWinType As WinType
Private Declare Function IsUserAnAdmin Lib "shell32.dll" Alias "#680" () As Long
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long


' Ist der Benutzer ein Admin bzw. in der Gruppe der Administratoren? Für NT, W2k, XP, Vista, 7
Public Function IsAdmin() As Boolean
If gWinType > Win9x Then
IsAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&))
Else
IsAdmin = True
End If
End Function


' Führt der Benutzer als Admin aus? Für NT, W2k, XP, Vista/7 UAC kompatibel
Public Function IsRunasAdmin() As Boolean
If gWinType > Win9x Then
IsRunasAdmin = CBool(IsUserAnAdmin)
Else
IsRunasAdmin = True
End If
End Function


MfG.
Wilfried

Ähnliche fragen