+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تفعيل و تعطيل إظهار الملفات المخفية Hidden Files (/showthread.php?tid=5246)
تفعيل و تعطيل إظهار الملفات المخفية Hidden Files - المبرمج الطموح vb6 - 06-10-12
<< بسم الله الرحمن الرحيم >>
أضع بين يديكم كود لتفعيل - و التعطيل - لإظهار الملفات المخفية اعتماداً على مدخلة في الريجستري
طبعا كل من الأكواد التالية يحتاج الى أداة عنوان Label1 و أداة زر Command1
نبدأ بسم الله
:كود تفعيل إظهار الملفات المخفية أو 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
تحياتي