[@more@]
Option Explicit
Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
Private Sub Form_Load()
Command1.Caption = "IsUserAnAdmin"
Label1.Caption = ""
End Sub
Private Sub Command1_Click()
Select Case IsUserAnAdmin()
Case 1:
Label1.Caption = "YES"
Case False:
Label1.Caption = "NO"
End Select
End Sub
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9437124/viewspace-1016753/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
检验系统帐号是否存在的实例
请登录后发表评论
登录
全部评论
