اريد تشغيل برنامج صوت يكون مدموج في البرنامج من الاخر يكون علي سي دي

مش لازم تدمج الملف في البرنامج

حدد مسار السي دي، وضع الملف على السي دي، ثم شغله عادي

هل تريد الكود الخاص بتحديد مسار السي دي ؟

اولا شكرا علي اهتمامك

ثانيا اريد ان يعمل هذا السي دي علي علي مختلف الاجهزه

انا مازلت مبتداي بس لا اظن ان هذه الطريقه ستنفع يا ريت لو عندك حل تاني تنجدني بيه لان انا واقع و مش عارف اعمل ايه بس المنتدي ده استلاقاني ياريت تساعدوني و شكرا مره ثانيه علي اهتمامك

و يا ريت الكود عشان يساعدني

طبعا هيشتغل على كل الأجهزة

الفكرة ببساطة إنت هتعمل متغير تحدد فيه رمز السي دي مثلا D أو F أو أي رمز

والرمز ده بيتغير على حسب الجهاز اللي شغال عليه البرنامج

وبعدين بتحدد باقي المسار عادي

هذا الكود منقول من أحد المنتديات وهو يحدد رمز السي دي

Dim XDrives
Dim XDrive
Dim XTest
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
XDrives = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To 26
XTest = Mid(XDrives, i, 1)
If GetDriveType(XTest & ":\") = 5 Then
XDrive = XTest
End If
Next
' XDrive يمثل هنا رمز محرك الأقراص المضغوطة
Print XDrive
End Sub

لو عندي وقت كنت عملتلك مثال بس عندي امتحانات دلوقتي

والبركة في الشباب يساعدوك

انا اسف اني تقلت عليك بس يا ريت اخر طلب من حضرتك وهو كود استدعاء الملف وشكرا علي الاهتمام

و ربنا يوفقك في الامتحانات

ياريت مافيش كود يشغل الصوت بامتداد wav\mp3من غير ما يفتح المديا بلير

ايه يا شباب انتوا نسيتوني ولا ايه و ياريت مساعده كمان في عمل play list

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

:lol: تفضل اخي العزيز كود لتشغيل ملف من نوع Wave فقط .. :huh:

:) الكود التالي يوضع في موديول خاص به

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long

:huh: الكود التالي يوضع في مفتاح التشغيل للصوت

Dim sound as string


sound="C:\WINDOWS\MaxBayne.wav"


iresult = mciExecute("play Sound")

:lol: يلااا اي خدمة يا مان وشكرا ........... :blink:

:blink: للمراسلة عبر البريد الالكتروني :-

Stren2001_1@hotmail.com

Mido_Bah_Net@yahoo.com

Mido_SoFt_3DGraphic@Gawab.com

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