بسم الله الرحمين الرحيم
واجهتني مشكلة وهي في صنع مجلد في جهاز الكمبيوتر وقد نجحت في
وضع المجلد في جهاز الكمبيوتر لكن المشكلة في فتحه . الكود المستعمل :
'يجب فتح المسار التالي في الريجستري لإضافة كلاسيد
Dim So As Microsoft.Win32.RegistryKey = Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\", True)
'تعريف الكلاسيد
Dim ClaStr As String = "{416651E4-9C3C-11D9-9BDE-F66BAD1E3F3A}"
'إضافة الكلاسيد
So.CreateSubKey(ClaStr)
'الأن هذه الكلاسيد يجب وضعها في المسار
'HKEY_CLASSES_ROOT\CLSID\
So.Close()
Dim Ty As Win32.RegistryKey
Ty = Win32.Registry.ClassesRoot.OpenSubKey("CLSID", True)
'إضافة الكلاسيد إلى المجلد الهدف
Dim B As Win32.RegistryKey
B = Ty.CreateSubKey(ClaStr)
'صنع مجلدات هامة للكلاسيد
B.SetValue("", "MiCcSoft")
B.CreateSubKey("DefaultIcon").SetValue("", "c:\windows\explorer.exe,0)")
Dim N As Win32.RegistryKey
N = B.CreateSubKey("InprocServer32")
N.SetValue("", "c:\windows\system32.dll")
N.SetValue("ThreadingModel", "Apartment")
Dim Bs() As Byte = {Byte.Parse(0), Byte.Parse(0), Byte.Parse(4), Byte.Parse(240)}
B.CreateSubKey("ShellFolder").SetValue("Attributes", Bs, Win32.RegistryValueKind.Binary)في السطر
N.SetValue("", "c:\windows\system32.dll")يتم تحديد Dll التي ستقوم بفتح المجلد والسؤال هو كيف يتم برمجة مثل هذه Dll مع العلم أني
استخدمت
Windows control library
Class Library
فهل الفيجوال بيزك 2005 لا يبرمج مثل هذه Dll
وقد رأيت عدة برامج وضعت مثل هذه المجلدات مثل Nokia Pc Suite و Nero 7.0