السلام عليكم ورحمة الله وبركاته
في الرابط اللي وضعته تريد تغير طريقة إظهار امتدادات الملفات ببرنامجك
يتم ذلك عن طريق الريجستري في المفتاح التالي :
كود :
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
في المفتاح أعلاه توجد قيمة بالاسم
HideFileExt
تأخذ هذه القيمة
قيمتين وهي إما 0 أو 1 :
0 تعني إظهار امتدادات الملفات
1 تعني إخفاء امتدادات الملفات
وقد وجدت مثال بالنت للتحقق من وجود ذلك المفتاح عدلت عليه ليمكنك من إخفاء وإظهار امتدادات الملفات :
PHP كود :
Private Sub ExtensionShown(ByVal HideExtFile As Boolean)
Dim strKey As String = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" ' مسار قيمة تغيير إظهار أو إخفاء امتدادات الملفات في الريجستري
Dim reg As Microsoft.Win32.RegistryKey = Nothing ' إنشاء مفتاح ريجستري
Dim NewValue As Integer ' القيمة التي ستحفظ بملف الريجستري
Try
reg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(strKey, True) ' فتح مسار الريجستري
If Not (reg Is Nothing) Then ' إذا لم يكن مفتاح الريجستري خالي
If HideExtFile = True Then
NewValue = 0 ' إذا كانت القيمة (ترو) يتم إظهار إمتداد الملفات
Else
NewValue = 1 ' إذا كانت القيمة (فولص) يتم إخفاء امتداد الملفات
End If
reg.SetValue("HideFileExt", NewValue) ' حفظ القيمة الجديدة المختارة في ملف الريجستري
End If
Catch ex As Exception
MessageBox.Show(ex.ToString) ' إظهار رسالة إذا حدث خطأ ما
Finally
If Not reg Is Nothing Then reg.Close() ' إغلاق مفتاح الريسجتري عند الانتهاء
End Try
End Sub
طريقة تنفيذ الكود أعلاه كالتالي :
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ExtensionShown(True)
End Sub
إذا أردت إظهار امتدادات الملفات ضع True ، ولإخفاءها ضع False .
*
ملحوظة: التعديل علي الريجستري يتطلب أن تمكن برنامج من العمل
بصلاحيات مسئول النظام . إذا كنت لا تعرف ذلك ابحث بالمنتدى عن تشغيل البرنامج كمسئول بالنظام .
****
***
**
*
