جعل البرنامج برنامج مشغل إفتراضي لملفات معينة

This can be done by Package Installer better

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

أخ hazzoom يمكن عمل ذلك بواسطة الريجستري و لكن قبل كل شي هل برنامجك له تعريف في الريجستري ليشغل هذه الملفات ؟

سأحاول القيام بمحاولة لفعل ذلك إن شاء الله .

;) مع خالص تحياتي

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

آسف يا أخ hazzoom لم أكن أقصدك بل كنت أقصد الأخ net devil .

نعم يمكن عمل ذلك بحزمة تثبيت و كذلك عن طريق البرمجة ، و الأسطر التالية تبين كيفية ذلك بالبرمجة :

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim I As Integer, S As String
		Try
			'الاتصال بملحق الملف
			With Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(TextBox.Text, True)
				'الحصول على مرجع الاجراءات
				S = .GetValue("")
				.Close()
			End With
			'الحصول على الاجراءات المرتبطة بملحق الملف
			With Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(S & "\shell", True)
				Label2.Text = "الاجراء الافتراضي :" & .GetValue("")
				ListBox.Items.Clear()
				For I = 0 To .SubKeyCount - 1
					If .OpenSubKey(.GetSubKeyNames(I), False).GetValue("") <> "" Then
						'كتابة التسمية التوضيحية للاجراء إن وجدت
						ListBox.Items.Add(.OpenSubKey(.GetSubKeyNames(I), False).GetValue(""))
					Else
						'إذا لم توجد التسمية التوضيحية نكتب اسم الاجراء مباشرة
						'لاحظ أن اسم الاجراء هو المطلوب في عمليات الرجستري
						ListBox.Items.Add(.GetSubKeyNames(I))
					End If
				Next
				.Close()
			End With
		Catch
			MsgBox("حدث خطأ لا يمكن العثور على الاجراءات", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
			TextBox.Select()
		End Try
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		If ListBox.SelectedIndex = -1 Then
			MsgBox("لم تقم بتحديد إجراء من قائمة الاجراءات", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
			Exit Sub
		End If
		Dim S As String
		'الاتصال بملحق الملف
		With Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(TextBox.Text, True)
			S = .GetValue("")
			.Close()
		End With
		'الحصول على الاجراءات المرتبطة بملحق الملف
		With Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(S & "\shell", True)
			'تعيين الاجراء الافتراضي
			.SetValue("", .GetSubKeyNames(ListBox.SelectedIndex))
		End With
		'اعادة تحميل الاجراءات
		Button1_Click(sender, e)
	End Sub

	Private Sub Exten_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox.KeyDown
		If e.KeyCode = Keys.Enter Then Me.Button1_Click(sender, e)
	End Sub

	Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		End
	End Sub

End Class

;) مع خالص تحياتي ،،،

Exten.rar