Функция IsNTAdmin

Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long
IsNTAdmin определяет, имеет ли запущенная программа права администратора

Параметры

dwReserved
Зарезервировано. Установите в 0
lpdwReserved
Зарезервировано. Установите в 0

Пример

' Имеет ли программа права Администратора
Dim bIsAdmin As Boolean

bIsAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&))
Print bIsAdmin

Категория

Недокументированные функции