پخش آهنگ در برنامه

[ali190]

با سلام و عرض خسته نباشید
من چطور میتونم مثل بعضی از فایل های keygen بر نامه ها که وقتی باز میشن آ و فرمتشون هم exe هست در فرمم آهنگ پخش کنم
منظورم اینه که خود آهنگ اصلاً در مسیر فرم نیست و فقط آهنگ از دل خود فرم keygen بیرون می آید
انگار یک آبجکت در فرم keygen هست.
ممنون

[M.T.P]

با سلام و عرض خسته نباشید
من چطور میتونم مثل بعضی از فایل های keygen بر نامه ها که وقتی باز میشن آ و فرمتشون هم exe هست در فرمم آهنگ پخش کنم
منظورم اینه که خود آهنگ اصلاً در مسیر فرم نیست و فقط آهنگ از دل خود فرم keygen بیرون می آید
انگار یک آبجکت در فرم keygen هست.
ممنون

فکر کنم قبلا هم این موضوع مطرح شده./
فایل آهنگ رو باید در ریسورس برنامه قرار بدین و در حین اجرا استخراج و پخش کنید.
البته داخل همون ریسورس هم میشه خوند و پخشش کرد ، جستجو کنید.

[alih110]

دوست عزیز جستجو می کردید زودتر به نتیجه می رسیدید اینم یک pdf تمامی حالات رو توضبح داده پخش از ریسورس بخش فایل های تصویری و ... در پست 143 این تاپیک هست http://www.barnamenevis.org/forum/showthread.php?t=166394 ببخشید به دلیل یک مشکل نموتنم مستقیم اون رو برات بزارم

[ali190]

دوستان من مشکلم حل نشد
من میخوام یه فایل ام پی 3 در اول فرمم اجرا بشه و تکرار هم بشه

[alih110]

این کد هست
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim isPlaying As Boolean Dim Mp3File As String Private Sub Command1_Click(Index As Integer) Mp3File = Chr$(34) + Trim(Text1.Text) + Chr$(34) Select Case Index Case 0 mciSendString "open " + Mp3File, 0&, 0&, 0& mciSendString "play " + Mp3File, "", 0&, 0& isPlaying = True Case 1 mciSendString "close " + Mp3File, 0&, 0&, 0& isPlaying = False End Select End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Command1(0).Caption = "Start" Command1(1).Caption = "Stop" Command2.Caption = "Exit" End Sub Private Sub Form_Unload(Cancel As Integer) If isPlaying = True Then mciSendString "close " + Mp3File, 0&, 0&, 0& End If End Sub توی text1 آدرس فایل رو بزار