كود تنفيذ برنامجك على كل المستخدمين الا الAdministrator

السلام عليكم

أعاني من نفس المشكلة لكن أريد تطبيق السابق في الريجيستري

إذا أردت التفاصيل ابعثلي رسالة تحوي عنوان الموضوع على الإيميل:

sb_com@gawab.com

Option Explicit
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
	"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias _
	"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
	ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()


	Dim N
	Dim UserN As String
	UserN = Space(144)
	N = GetUserName(UserN, 144)
	Text1.Text = UserN

If Text1 = "Administrator" Then

MsgBox "لا تنفذ البرنامج"

Else

MsgBox "  تنفذ البرنامج"

End If

End


End Sub

أخى الأمر غير قاصر على المجلد

لازم تتأكد بالكود أن المستخدم هو Admin و لا لأ , الكود هنا

http://www.allapi.net/apilist/379F19E6D02F...0D92C324AD.html