سؤال:ما كود تثبيت ويندوز ميديا بلاير11؟

أخي الكريم لقد عدلت على الكود وإستخدم الكود التالي:-

Shell App.Path & "\wmp11.exe", vbNormalFocus

وأخبرني بالنتيجة

شكراعلي الرد الكريم و جزاك الله خيرا

ولكني استخدمت العشرات من الاكواد و منهم بالطبع الموجودة بهذه الصفحة

فهي تعمل بمنتهي الفعالية مع اي برامج اخري ما عدا

الميديا بلاير11 و الجافا كما شرحت سابقا

و الحمد لله

بعد طول تجارب اكتشفت ان السبب هو ان اسم المجلد الذي موجود به ملف الميديا بلاير 11

باللغة العربية فتعذر علي البرنامج فهم مساره عندما وجد كلمات عربية في عنوان مساره

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

و هذا للعلم و للافادة لباقي الاخوة حتي لا يقعـوا في نفس المشكلة

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

استكمالا للموضوع و للفائدة

احب ان اوضح ان الميديا بلاير 11 لا يدعم اللغة العربية عند تثبيته عن طريق سطر اوامر او اكواد بسيطة و معتادة

و مع ذلك فان الميديا بلاير لا يفرق معه اللغة العربية عند الضغط علي ملفه بالماوس ضغطتين متتاليتين فيتم التثبيت بمنتهي اليسر و السهولة!!

لذلك بحثت عن كود يماثل بالضبط ضغط الماوس علي الملف حتي اضمن تثبيت اي برنامج بصرف النظر عن كونه يدعم اللغة العربية ام لا

و الحمد لله وجدت الكود الذي يمكننا به تشغيل او تثبيت اي ملف و يماثل بالضبط تأثير الضغط بالماوس علي الملف نفسه و الكود هو :

'This example will show you how to launch a file with his associate program.

'It will do the same action that occur when you Double Click on the file.

'For Example, if when you double click on mp3 file it launch with Winamp,

'This code will do the same.

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)

'Insert this code to the module :

#If Win32 Then

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile _

As String, ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Declare Function GetDesktopWindow Lib "user32" () As Long

#Else

Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _

ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _

ByVal lpszDir$, ByVal fsShowCmd%) As Integer

Declare Function GetDesktopWindow Lib "USER" () As Integer

#End If

Public Const SW_SHOWNORMAL = 1

'Insert this code to your form:

Function StartDoc(DocName As String) As Long

Dim Scr_hDC As Long

Scr_hDC = GetDesktopWindow()

StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)

End Function

Private Sub Form_Load()

Dim r As Long

'Replace the c:\mp3\song.mp3 with the file you want to launch

r = StartDoc("c:\mp3\song.mp3")

End Sub

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