Çokluortam dosyalarını kendilerine ait API'lerle çağırmak daha hızlı ve daha sağlıklı
olsa da size hiç bir seçeneği ayarlama olanağı vermeyen bir DLL dosyasını
çağırarak da sistemde tanımlı tüm çokluortam dosyalarını minimum zahmetle
çalıştırabilirsiniz.
' Aşağıdaki satır formlardan bağımsız bir modüle konulacak
Declare Function mciExecute Lib ' MMSystem' (ByVal FileName as
String) As Integer
' Fonksiyonu aşağıdaki gibi kullanabilirsiniz.
' Tırnak içindeki play komutu sabit kalmalıdır.
Sub Form1_Click ()
' x değeri dosyanın başarılı olarak çalışıp çalışmadığını döndürür.
x = mciExecute(' Play c:\windows\ding.wav' )
x = mciExecute(' Play test.avi' )
End Sub