Enumeration  
  #Window_0  
  #open
  #tame  
EndEnumeration
   

Procedure MP3_Load(Nb,file.s)  
  i=mciSendString_("OPEN "+Chr(34)+file+Chr(34)+" Type MPEGVIDEO ALIAS MP3_"+Str(Nb),0,0,0)
   
  a$=Space(#MAX_PATH)  
  i=mciSendString_("status MP3_"+Str(Nb)+" length",@a$,#MAX_PATH,0)  
  Time = Val(a$)

  Time/1000  
  sek=Time%60:Time/60  
  min=Time%60:Time/60  
  rez.s= RSet(Str(Time),2,"0")+":"+RSet(Str(min),2,"0")+":"+RSet(Str(sek),2,"0")
   
  SetGadgetText(#tame,"Время звучания: "+rez.s)  
EndProcedure
   

OpenWindow (#Window_0,0,0,380,200,"Окно",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)  

  ButtonGadget(#open,20,50,70,20,"открыть")
  TextGadget (#tame,50,20,300,20,"Время звучания:")  

Repeat
Event = WaitWindowEvent()  
Window = EventWindow()  
Gadget = EventGadget()
  Select Event
  Case #PB_Event_Gadget
  Select EventGadget()
  Case #open
  File$=OpenFileRequester("","","Media (Wave,MP3,OGG)|*.wav;*.ogg;*.mp3|Wave|*.wav|mp3|*.mp3|OGG|*.OGG|ALL|*.*",0)  
  MP3_Load(1,File$)
  EndSelect
  EndSelect
If Event = #PB_Event_CloseWindow  
Break  
EndIf
ForEver