ربط ملفلت ذات امتداد معين كي تفتح ببرامجي عند الضغط علي الملف

[Associate App.Title, ".hlb", "amer khreim", App.path & "Folder.ico", "asme"

modass1.zip

بأستخدام هذا الكود سوف تتكمن من تخصيص أمتداد للملف الخاص ببرنامجك مثل تشغيل الملفات ذات الأمتداد DAT على WINDOWS MEDIA PLAYER بهذا الكود ممكن تخصيص أمتذاذ عند الضغط علية ينفتح برنامجك

'يوضع فى FORM

Private Sub Command1_Click()

Dim myfiletype As filetype

myfiletype.ProperName = "أسم البرنامج"

myfiletype.FullName = "الأسم كامل للبرنامج أو العنوان"

myfiletype.ContentType = "نوع المحتوى"

myfiletype.Extension = "لاأمتداد"

myfiletype.Commands.Captions.Add "أسم البرنامج"

myfiletype.Commands.Commands.Add "طريق الملف التنفيذي"



CreateExtension myfiletype

End Sub



'--------------------------------------------------------



'يوضع فى MODULE

Public Type mnuCommands

Captions As New Collection

Commands As New Collection

End Type



Public Type filetype

Commands As mnuCommands

Extension As String

ProperName As String

FullName As String

ContentType As String

IconPath As String

IconIndex As Integer

End Type



Public Const REG_SZ = 1

Public Const HKEY_CLASSES_ROOT = &H80000000



Public Declare Function RegCloseKey Lib _

"advapi32.dll" (ByVal hKey As Long) As Long

Public Declare Function RegCreateKey Lib _

"advapi32" Alias "RegCreateKeyA" (ByVal _

hKey As Long, ByVal lpszSubKey As String, _

phkResult As Long) As Long

Public Declare Function RegSetValueEx Lib _

"advapi32" Alias "RegSetValueExA" (ByVal _

hKey As Long, ByVal lpszValueName As String, _

ByVal dwReserved As Long, ByVal fdwType As _

Long, lpbData As Any, ByVal cbData As Long) As Long





Public Sub CreateExtension(newfiletype As filetype)



Dim IconString As String

Dim Result As Long, Result2 As Long, ResultX As Long

Dim ReturnValue As Long, HKeyX As Long

Dim cmdloop As Integer



IconString = newfiletype.IconPath & "," & newfiletype.IconIndex



If Left$(newfiletype.Extension, 1) <> "." Then _

newfiletype.Extension = "." & newfiletype.Extension



RegCreateKey HKEY_CLASSES_ROOT, _

newfiletype.Extension, Result

ReturnValue = RegSetValueEx(Result, "", 0, REG_SZ, _

ByVal newfiletype.ProperName, _

LenB(StrConv(newfiletype.ProperName, vbFromUnicode)))



' Set up content type

If newfiletype.ContentType <> "" Then

ReturnValue = RegSetValueEx(Result, _

"Content Type", 0, REG_SZ, ByVal _

CStr(newfiletype.ContentType), _

LenB(StrConv(newfiletype.ContentType, vbFromUnicode)))

End If

'مكان الأيقونة على القرص الصلب

IconString = "طريق ملف الأيقونة"



RegCreateKey HKEY_CLASSES_ROOT, _

newfiletype.ProperName, Result





RegCreateKey Result, "DefaultIcon", _

Result2

'Create The Key of "ProperNameDefaultIcon"



ReturnValue = RegSetValueEx(Result2, _

"", 0, REG_SZ, ByVal IconString, _

LenB(StrConv(IconString, vbFromUnicode)))

'Set The Default Value for the Key





ReturnValue = RegSetValueEx(Result, _

"", 0, REG_SZ, ByVal newfiletype.FullName, _

LenB(StrConv(newfiletype.FullName, vbFromUnicode)))

RegCreateKey Result, ByVal "Shell", ResultX



' Create neccessary subkeys for each command

For cmdloop = 1 To newfiletype.Commands.Captions.Count

RegCreateKey ResultX, ByVal _

newfiletype.Commands.Captions(cmdloop), Result

RegCreateKey Result, ByVal "Command", Result2

Dim CurrentCommand$

CurrentCommand = newfiletype.Commands.Commands(cmdloop)

ReturnValue = RegSetValueEx(Result2, _

"", 0, REG_SZ, ByVal CurrentCommand$, _

LenB(StrConv(CurrentCommand$, vbFromUnicode)))

RegCloseKey Result

RegCloseKey Result2

Next



RegCloseKey Result2

End Sub

مع تحيات أحمد عصام

اخي العزيز شكرا جزيلا علي معاونتك انا بمعلوماتك القيمه

ولكن يتبقي مشكله

الان انا جعلت ملفات ذات امتداد عند الضعط عليها يفتح البرنامج ولكن

مثلا

كيف اربط بين الصوره التي ضغطت عليها والاداه IMAGE

ولك جزيل الشكر

اولا هل عرفت كيفية استخدام المثال الذي وضعته لك

ثانيا هذا ما تريد.

shellnew.zip

السلام عليكم

نعم اخي العزيز تمكنت من استخدام الكود الاول بنجاح

واتمني ان انجح في استخدام الثاني

وشكرا

إن شاء الله

السلام عليكم

هل من الممكن ان تشرح لي بشكل اكثر تفصيلا

أرجو منك توضيح النقاط المطلوب توضيحها

هل لديك MSDN

السلام عليكم

1-كيف اربط ملف موجود اصلا مثل jpg bmp

2- لا ليس لدي ال msdn

السلام عليكم

يا عزيزي لقد تاخرت علي بالرد نود ان يكون التاخير بسبب خير

انتظر ردك

اخواني مبرمجي فيجوال بيزك

هل من احد منكم يكمل الحوار كي تتم الفائده من الاستفسار ولكم جزيل الشكر

وعليك السلام و رحمة الله

ان شاء الله التأخير لخير

ولكن سوف انصحك نصيحة يجب ان تتعامل معها بجدية

يجب ثم يجب عليك الحصول على MSDN

فهيه سوف تساعدك و تساعدني في عملية شرح البرنامج وسوف توفر عليك جهدا كبيرا في تفسير Visual Basic ولكن سوف احاول توفير وقت لشرحه لك

وان شاء الله لن اكون بخيلا على احد .

ارجو ان تنفذ نصيحتي اذا منت تريد حقا ان تكون مبرمج Visual Basic

السلام عليكم

عود احمد اخي عامر

كيف يمكنني الحصول علي msdn من اين وكم ثمنها

وعليك السلام

من اي بلد انت

من مصر

انا من سوريا

و ثمنها رخيص جدا بالنسبة لثمنها الحقيقي عندنا

اعني MSDN

اذا كان ثمنها باهظ عندكم في مصر فيمكن ان ارسلها لك عن طريق البريد.

بالنسبة للمثال الأخير يوجد ملف اسمه Foo.reg

حاول ان تضيفه عن طريق البرمجة كي نكمل.

من مصر -القاهره

انا الان في طريقي للحصول علي ل msdn

بالنسبه للمثال الاخير

1-لقد قرات الملف .reg ولكن كيف اضعه كما تقول

2-المشكله في ان الفورم تنقل الصوره .fooفي الخاصيه me.picture

وانا اريد ان تنقلها علي اداه مثل image.picture ولكنها لا تقبل

السلام عليكم

تطبيق المثال على ثلاث عناصر

foo.zip

راحت الملفات كلها ياليت ترجع