سؤالين في الريجستري

بالنسبة لشق الاول من السؤال ياخ mjxp7

العمليه ستكون في هذا المفتاح HKEY_CLASSES_ROOT

في البدايه سنحتاج الى دوال API التي تتعامل مع الريجستري

Read And Write to the Registry

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

ثم سنقوم بانشاء بعض التعاريف

Const lngKeyDataType = 1 ''HnHn REG_SZ = 1
Const lngRegKeyROOT = &H80000000
Const strRegKeyName = "Directory\Shell" 'HnHn : اسم المجلد في الريجستر

'HnHn : بعض التعاريف
Dim strKeyValueName As String
Dim strOtherKeyValueName As String
Dim KeyDataValue1, KeyDataValue2
Private Const KEY_ALL_ACCESS = &H2003F

ثم سنقوم بانشاء اجرء لتنفيذ عملية انشاء مفتاح

Private Sub SetKeyDataValue(RegKeyRoot As Long, RegKeyName As String, RegOtherKeyName As String, KeyDataType As Long, KeyValueName As String, KeyValueDate1 As Variant, KeyValueDate2 As Variant)

	Dim OpenKey As Long, SetValue As Long, hKey As Long
	'HnHn : التأكد من وجود المجلد
	OpenKey = RegOpenKeyEx(RegKeyRoot, RegKeyName & "\" & KeyValueName, 0, KEY_ALL_ACCESS, hKey)
	If (OpenKey <> 0) Then
	'HnHn قرءة القيم
		Call RegCreateKey(RegKeyRoot, RegKeyName & "\" & KeyValueName, hKey)
		SetValue = RegSetValueEx(hKey, "", 0&, KeyDataType, ByVal CStr(KeyValueDate1 & Chr$(0)), Len(KeyValueDate1))
	'HnHn انشاءها
		Call RegCreateKey(RegKeyRoot, RegKeyName & "\" & KeyValueName & "\" & RegOtherKeyName, hKey)
		SetValue = RegSetValueEx(hKey, "", 0&, KeyDataType, ByVal CStr(KeyValueDate2 & Chr$(0)), Len(KeyValueDate2))
	End If
	'HnHn : انهاء العمليه
	SetValue = RegCloseKey(hKey)
		MsgBox "تم انشاء المفتاح" & Space(2) & KeyValueName, vbInformation + vbOKOnly, App.Title
End Sub

ثم سنقوم بادراج العملية تحت زر امر لتنفيذه

Private Sub Command1_Click()
	strKeyValueName = "HnHn" 'HnHn ' اسم المجلد الذي سيحوي اسم الاختصار للبرنامج
	strOtherKeyValueName = "Command" ' HnHn  ' المجلد الذي سيحوي مسار البرنامج
	KeyDataValue1 = "&" & strKeyValueName 'HnHn : اسم القيمة المرجعيه للأسم الاختصار
	KeyDataValue2 = App.Path & "Key.exe"
	If strKeyValueName <> "" And KeyDataValue1 <> "" And KeyDataValue2 <> "" Then
	Call SetKeyDataValue(lngRegKeyROOT, strRegKeyName, strOtherKeyValueName, lngKeyDataType, strKeyValueName, KeyDataValue1, KeyDataValue2)
  Else
  Unload Me
  End If

المثال مرفق مع صورة

SetKeyWin.rar

شكرا لك أخي hnhn

يعطيك العافية

تحياااااااتي

شكرا لردك اخ HNHN

لكن المرفق للأف لا يعمل به مشكلة

وأنتظر من الاعاء إن شاء الله الاجابة عن السؤال الثاني

لقد حملت الملف والحمد لله نجح الأمر مع المجلدات لكن ماذا عن الملفات ؟؟؟

وهل يمكن انشاء قوائم فرعية ضمن هذه القوائم؟؟؟

وشكرا لكم.

للرفع

للرفع

اخ mjxp7

هل تريد مثال ام تريد ان اكمل لك الشرح لأني ساتخر قليلا عن الرد لأنشغالي

أخ hnhn شكرا لاهتمامك وممكن ترد بالشكل الذي يريحك ولا بأس بالتأخر فأنا أقدر مشاغلك

أخ msayed2004 شكرا لك سأراجع الصفحة

شكراً لك أخ hnhn

شكراً أخ msayed2004

للرفع

ايه اللى فاضل ؟

أعتقد أن السؤالين أتجاوبوا !

اقتباس

ايه اللى فاضل ؟

أعتقد أن السؤالين أتجاوبوا !

اقتباس

السؤال الأول:

عند تنصيب بعض البرامج مثل الونرار و الونزيب يظهر اسم لهذا البرنامج وأيقونته ايضا عند الضغط على اي ملف بالزر الأيمن فكيف افعل مثل عذا؟؟

وعندي سؤال آخر لك عزيزي في الصفحة التي ذكرتها سابقا مذكو في الكود التالي:

اقتباس

C:\Program Files\MyBrowser\mybrowser.exe", "C:\Program Files\MyBrowser\localization.dll

فما هو الملف localization.dll ؟؟؟

أنا مجربتش الكود عندى بس هل بينج لو شلت الجزء ده منه ؟

مش أحنا بس اللى محتاريين http://www.codeguru.com/forum/showthread.php?p=1196116

up up up

up up up

؟؟؟؟؟؟!!!!!!!!!!!!