• 0
mjxp7

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

سؤال

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

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

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

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

وشكرا لكم

مع تحياتي

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

شبكة الصاعق

ALSAEK.COM

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

17 إجابة على هذا السؤال .

  • 0

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

SetKeyWin.rar

تم تعديل بواسطه HnHn
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لك أخي hnhn

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لردك اخ HNHN

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

وشكرا لكم.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخ mjxp7

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
ايه اللى فاضل ؟

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

up up up

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

up up up

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .