pcworld online logo

ÇOKLUORTAM DOSYALARINI ÇALIŞTIRMAK

DAHA önceki aylarda AVI dosyalarını oynatmak, WAV dosyalarını çalmak başlıkları altında verdiğimiz püf noktaları size çok uzun gelebilir. Ç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 sistemse 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