[المبرمج الطموح vb6]

<< بسم الله الرحمن الرحيم >>

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

كود تفعيل خيارات المجلدات أو Folder Option :

Dim lResult
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoFolderOptions", 0&, REG_DWORD, 0, 4)
lResult = RegCloseKey(hKeyHandle)
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Policies\Microsoft\Internet Explorer\Restrictions", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoBrowserOptions", 0&, REG_DWORD, 0, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Folders Options Enabled"
End Sub

أما كود التعطيل لخيارات المجلدات أو Folder Option :

Dim lResult
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoFolderOptions", 0&, REG_DWORD, 1, 4)
lResult = RegCloseKey(hKeyHandle)
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Policies\Microsoft\Internet Explorer\Restrictions", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "NoBrowserOptions", 0&, REG_DWORD, 1, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Folders Options Disabled"
End Sub

تحياتي