[boty]

اعذر جهلي الرهيب اخي الكريم
اين ايض هذه الأكواد ؟
فلا اظن انها توضع فالمنطقة العامة ( اي تحت Public Class Form1)
والا لن تعمل الا عندما يكون البرنامج يعمل (و هي ايضا لا تعمل)
و انا لم افهم قصدك بقولك هذا

كود :

''' <summary>
    '''(تعيين برنامج رئيسي لفتح الملفات (ملاحظة : يجب تنفيذ الدالة كمسؤول
    ''' </summary>
    ''' <param name="Extension">(.jpg امتداد الملفات الذي تريد عمل فتح افتراضي لها (مثال</param>
    ''' <param name="ApplicationPath">مسار البرنامج الذي سيفتح الملفات ذات الامتداد المحدد في البارمتار السابق</param>

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

إنسى كل ماقلته

اضن اني مخطأ ايضا

فأعتقد انك تريد جعل برنامجك كبرنامج افتراضي من خلال الsetup

وهذا اكيد يمكنك فعله من خلال إعدادات الsetup

ماهو البرنامج الذي تقوم من خلاله بعمل setup لبرنامجك

هل هو setup factory او visual studio ام ماذا ؟

أفضل استخدام setup factory فهو ذو مميزات كبيرة

---

سلام عليكم أخي

بعد إذن أخوي ( الشاكي لله )
وجدت لك طلبك بأحد مواضيع المنتدى القديم للأخ (أنس محمود)

كود :

Sub NewFileType(ByRef ProgramPath As String, ByVal Extension As String _
    , ByRef FileIcon As String, ByRef Description As String)
        Dim W As Object
        Dim E As String
        W = CreateObject("Wscript.shell")
        If VB.Left(Extension, 1) <> "." Then
            E = "." & Extension & "\"
        Else
            E = Extension & "\"
            Extension = Mid(Extension, 2)
        End If
        W.regwrite("HKCR\" & E, Extension & " File")
        W.regwrite("HKCR\" & Extension & " File\", Description)
        W.regwrite("HKCR\" & Extension & " File\DefaultIcon\", FileIcon)
        W.regwrite("HKCR\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1")
        W.regwrite("HKCR\" & Extension & " File\Shell\", "Open")
    End Sub

وهذا المثال بالكامل عبارة عن مفكرة متكاملة بخصائص روعة رفعتها لك
01244283237.rar - 52.20 KB

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

اخي الكريم يبدو انك اعتمدت في هذا البرنامج على الطريقة المذكورة في الرابط ادناه

الرابط

قد حاولت ان افهم منها شيئا و لكني لم افهم
كما ان هذه الطريقة لعمل امتداد جديد تماما ، انا لا اريد امتداد جديد
انا اتعامل مع txt و rtf فما العمل ؟
اعذر جهلي ان لك اكن قد فهمت ما تقصد بصورة صحيحة