تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب مساعده
#1
السلام عليكم اخواني
قمت بتصميم مشروع لمشغل ميلتيمديا فكيف لي ان اجعل برنامجي معتمد من طرف ويندوز...اي عندما اختار ملف صوتي او فيديو واضغد بالزر الايمن للماوس و اختار فتح بواسطة (برنامجي) يفتح الملف
او عند الظغط على الملف مباشرة يقوم بالتشغيل ببرنامجي
وشكرا مسبقا
الرد }}}
تم الشكر بواسطة:
#2
يجب ان يكون برنامجك له مسار ثابت في الويندوز
ثم اضغط بالزر الايمن للماوس و اختار فتح بواسطة (برنامجي) يفتح الملف مع التاشير على (Always use selected program to open this kind of file) كما يشير اليه الرقم 2 في الثانيه

الخطوات كما في الصور

الرد }}}
تم الشكر بواسطة:
#3
(25-12-20, 12:15 PM)BaLaDy كتب : يجب ان يكون برنامجك له مسار ثابت في الويندوز
ثم اضغط بالزر الايمن للماوس و اختار فتح بواسطة (برنامجي) يفتح الملف مع التاشير على (Always use selected program to open this kind of file) كما يشير اليه الرقم 2 في الثانيه

الخطوات كما في الصور

مفهوم اخي [b]BaLaDy[/b] ولكن ليس ذلك ما اقصد اعتقد ان برنامجي يحتاج كود او ملف ريجيستري او ما شابه ... احتاج فكره
الرد }}}
تم الشكر بواسطة:
#4
كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
الرد }}}
تم الشكر بواسطة: asmarsou , asmarsou , ابراهيم ايبو
#5
(25-12-20, 04:14 PM)BaLaDy كتب : كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور

مشكور اخي  BaLaDy اظن ان فكرة سؤالي قاب قوسين او ادنى
هنا عندي امتداد الملفات المراد تشغيلها معروف ...يعني كالاتي
OpenFileDialog1.Filter = "All Media Files|*.wav;*.aac;*.wma;*.wmv;*.avi;*.mpg;*.mpeg;*.m1v;*.mp2;*.mp3;*.mpa;*.mpe;*.m3u;*.mp4;*.mov;*.3g2;*.3gp2;*.3gp;*.3gpp;*.m4a;*.cda;*.aif;*.aifc;*.aiff;*.mid;*.midi;*.rmi;*.mkv;*.WAV;*.AAC;*.WMA;*.WMV;*.AVI;*.MPG;*.MPEG;*.M1V;*.MP2;*.MP3;*.MPA;*.MPE;*.M3U;*.MP4;*.MOV;*.3G2;*.3GP2;*.3GP;*.3GPP;*.M4A;*.CDA;*.AIF;*.AIFC;*.AIFF;*.MID;*.MIDI;*.RMI;*.MKV"
ما اريده هو كيفية جعل برنامجي هو البرنامج الافتراضي او programe par defaut او Default Applications

 لتشغيل تلك الامتدادات و شكرا مرة اخرى
الرد }}}
تم الشكر بواسطة:
#6
اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط  عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/1718...ith-vb-net

الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#7
(27-12-20, 09:31 AM)معاند الحظ كتب : اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط  عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/1718...ith-vb-net

نعم اخي الكريم ذلك ما انشد و لكني لم اتوصل الى الصيغة الصحيحه بعد
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#8
(27-12-20, 12:48 PM)asmarsou كتب :
(27-12-20, 09:31 AM)معاند الحظ كتب : اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط  عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/1718...ith-vb-net

نعم اخي الكريم ذلك ما انشد و لكني لم اتوصل الى الصيغة الصحيحه بعد

اشكر كل مد لي يد العون او لمح لي بفكرة
و اخيرا تمكنت من ايجاد كود بسيط يفي بالغرض و فعال 100 %
كود

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            If My.Application.CommandLineArgs.Count > 0 Then

                OpenFile(My.Application.CommandLineArgs(0))

            End If

        Catch ex As Exception

        End Try
    End Sub
    Private Sub OpenFile(ByVal strFileName As String)

        Dim srStream As New StreamReader(strFileName)


        AxWindowsMediaPlayer1.URL = strFileName
        AxWindowsMediaPlayer1.Ctlcontrols.play()
        Me.Text = strFileName

        srStream.Close()

    End Sub

End Class
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم