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

نسخة كاملة : تفعيل و تعطيل خيارات نظام التشغيل System Propreties
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
<< بسم الله الرحمن الرحيم >>

أضع بين يديكم كود لتفعيل - و التعطيل - لخيارات النظام اعتماداً على مدخلة في الريجستري
طبعا كل من الأكواد التالية يحتاج الى أداة عنوان Label1 و أداة زر Command1
نبدأ بسم الله Smile :


كود تفعيل خيارات النظام أو System Propreties :


Dim lResult
Private Sub Command1_click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoPropertiesMyComputer", 0&, REG_DWORD, 0, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : System Properties Enabled"
End Sub


أما كود التعطيل لخيارات النظام أو System Propreties :


Dim lResult
Private Sub Command1_click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoPropertiesMyComputer", 0&, REG_DWORD, 1, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : System Properties Disabled"
End Sub

تحياتي Smile