Delphi tilida

Tovushlami e i eshittirish 

Tovush fragmentlari WAV kengaytmali fayllarda saqlanadi. Misol 
uchun C:\Winnt\Media katalogida Windows standart tovushlari 
yozilgan fayllar joylashgan. 
Quyidagi dasturda MediaPiayer komponentasidan WAV-fayllarida 
joylashgan tovushlarni eshitish uchun foydalanish ko‘rsatilgan. 
MediaPiayer komponentasidan tashqari formada ListBoxva ikki Label
komponentalari mavjud bolib. birinchisi ma’lumotni aks etishi, ikkinchisi 
ro‘yxatdan tanlangan WAV-fayl nomini aks ettirish uchun ishlatiladi. 
Bundan tashqari, ikki Button komponentalari mavjud bo‘lib. birinchisi 

142 

tovushli fayllar r i fayllar r i fayllar ro‘yxatini ekranga chiqarish, ikkinchisi ro‘yxatdan tovushli
faylni tanlash uchun moljallangan. 
Dastur quyidagicha ishlaydi. Dialog oynasi paydo bolgandan so‘ng 
«Microsoft tovushi» eshitiladi, so‘ngra foydalanuvchi ro‘y-xatdan 
C:\Windows\Media katalogidagi ixtiyoriy tovushli faylni tanlaydi va
BocnpoH3Be/ieHHe tugmasini bosgandan so‘ng shu faylni eshittiriladi. 

K r«m i 
aJOlil 

MediaPlayerl komponentasining o‘zgartirilgan xossalar qiymatlari 

jadvalda berilgan. 
MediaPlayerl komponentasining xossalari qiymatlari: 

143 

implementation 
{$R *.dfm} 
procedure TForml.ButtonlClick(Sender: TObject); 
var 
SearchRec: TSearchRec; 
begin 
if FindFirst(«C:\WINDOWS\Media\»+'*.wav', faAnyFile, 
SearchRec) =0 then 
Begin 
Forml.ListBoxl.Items.Add(SearchRec.Name) ; 
while (FindNext(SearchRec) = 0) do 
Forml.ListBoxl.Items.Add(SearchRec.Name);