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

[mjxp7 1]

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

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

السؤال الثاني:

حين نضغط على رابط بالزر الأيمن ونختار فتح في اطار جديد يتم فتح تلك الصفحة بواسطة الانترنت اكسبلورر فكيف اجعل متصفحي هو الافتراضي؟؟؟

وشكرا لكم

مع تحياتي

محمد جمال الذياب

شبكة الصاعق

ALSAEK.COM

[HnHn 17]

بالنسبة لشق الاول من السؤال ياخ 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

تم تعديل 11 Jan 2007 بواسطه HnHn

[أبو فهيد 19]

شكرا لك أخي hnhn

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

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

[mjxp7 1]

شكرا لردك اخ HNHN

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

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

[mjxp7 1]

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

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

وشكرا لكم.

[mjxp7 1]

للرفع

[mjxp7 1]

للرفع

[HnHn 17]

اخ mjxp7

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

[msayed2004 3]

http://support.microsoft.com/kb/299853/en-us

[mjxp7 1]

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

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

[وحش البرمجة 1]

شكراً لك أخ hnhn

شكراً أخ msayed2004

[mjxp7 1]

للرفع

[msayed2004 3]

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

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

[mjxp7 1]

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

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

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

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

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

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

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

[msayed2004 3]

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

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

[mjxp7 1]

up up up

[mjxp7 1]

up up up

[mjxp7 1]

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