تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تفعيل و تعطيل خيارات المجلدات Folder Option
#1
<< بسم الله الرحمن الرحيم >>

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


كود تفعيل خيارات المجلدات أو 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


تحياتي Smile


حصريا للمنتدى :
درس: كيفية حساب عدد الأسطر في نص

-- إذا لم تزد على الحياة شيئاً فأنت زائد عليها --
-- المبرمج الطموح vb6 --


الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) سانسيفا 8 2,043 26-08-13, 05:06 PM
آخر رد: مهند إلكترو
  تعطيل وتفعيل مدير المهام RaggiTech 0 630 17-10-12, 04:39 PM
آخر رد: RaggiTech
  تعطيل لوحة المفاتيح الى اشعار اخر RaggiTech 0 618 17-10-12, 03:12 PM
آخر رد: RaggiTech
  تعطيل الكيبورد والماوس عن العمل RaggiTech 0 538 17-10-12, 12:38 AM
آخر رد: RaggiTech
  تفعيل و تعطيل خيارات نظام التشغيل System Propreties المبرمج الطموح vb6 0 454 06-10-12, 12:47 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل التشغيل Run المبرمج الطموح vb6 0 492 06-10-12, 12:44 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل فتح الريجستري Regedit المبرمج الطموح vb6 0 558 06-10-12, 12:40 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل إظهار الملفات المخفية Hidden Files المبرمج الطموح vb6 0 825 06-10-12, 12:37 PM
آخر رد: المبرمج الطموح vb6
  تفعيل و تعطيل لوحة التحكم Control Panel المبرمج الطموح vb6 0 494 06-10-12, 12:30 PM
آخر رد: المبرمج الطموح vb6
  تفعيل أو تعطيل زر الإغلاق (x) في النوافذ بالكود المبرمج الطموح vb6 0 563 05-10-12, 06:41 PM
آخر رد: المبرمج الطموح vb6

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم