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

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

كود تفعيل إظهار الملفات المخفية أو Hidden Files :

Dim lResult
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "Hidden", 0&, REG_DWORD, 1, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Show Hidden Folders Enabled"
End Sub


أما كود التعطيل لإظهار الملفات المخفية أو Hidden Files :

Dim lResult
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "Hidden", 0&, REG_DWORD, 2, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Show Hidden Folders Disabled"
End Sub


تحياتي Smile

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

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


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



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


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