سؤال عن انهاء حدث مرتبط بدالة shellexecute سؤال عن انهاء حدث مرتبط بدالة ShellExecute

[ابو جودي]

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

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

الى الان كل شئ تمام التمام وى الفل

عند تحديد سجل محدد يتم تشغيل ملف الصوت 

وهنا تكمن المشكلة محتاج اوقف الصوت لا ادرى كيف

هههههههههه   حتى اننى اغلق القاعدة ويستمر الصوت فى العمل

للعلم ممكن استعراض اى شئ ليس ملفات صوتية فقط ولكن سوف اجعلها تقتصر على التعامل مع ملفات الصوت

api_play_sound.zip

تم تعديل مايو 2, 2019 بواسطه ابا جودى

[essam rabea]

منذ ساعه, ابا جودى said:

وهنا تكمن المشكلة محتاج اوقف الصوت لا ادرى كيف

عندى بيفتح برنامج تشغيل الميديا (KMPlayer) وبقفله عادى 😃

[ابو جودي]

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

[SEMO.Pa3x]

عليكم السلام. 

لماذا تستخدم دالة ShellExecuteA في تشغيل ملفات الصوت ؟؟

وظيفة الدالة الاساسية ليست لتشغيل ملفات الصوت. بل لتشغيل البرامج التنفيذية والتي بدورها ستقوم بتشغيل اما صوت او فيديو او صورة حسب

البراميتر الممرر لها,, لتشغيل ملفات الصوت MP3 , WAV في الاكسس وبإستخدام API

 

راجع موضوعي هنا، 

على العموم لحل مُشكلتك في دالة ShellExecuteA

تحتاج لقتل العملية المسؤولة عن تشغيل الصوت كان يكون برنامج  VLC او  Windows Media Player ... الخ

 

Private Sub DoStop_Click()
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object

Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")

For Each oProc In cProc
    If oProc.Name = "Music.UI.exe" Or oProc.Name = "wmplayer.exe" Then
      MsgBox "تم ايقاف الصوت بنجاح"
      oProc.Terminate
    End If
Next
End Sub

 

تفضل قاعدة البيانات الخاصة بك بعد التعديل

حسنين

api_sounds_SEMO.rar

تم تعديل مايو 3, 2019 بواسطه SEMO.Pa3x

[ابو جودي]

جزاكم الله خيرا استاذى الجميل الفاضل ومعلمى استاذ @SEMO.Pa3x 

كل عام وانتم الى الله اقرب