372______________________________________________'

   (*.wav,*.mid,*.avi)       *.wav; *.mid; *.avi                   :

 (*.wav,*.mid)                   *.wav;*.mid

 (*.avi)                             *.avi

                            *.*                               i

     :  .  |
OnClick     

if (OpenDialogl->Execute())
(

MediaPlayerl->FileName = OpenDialogl->FileName;

MediaPlayerl->Open();

)

   ,   1
 .    ,    MediaPlaye
 DeviceType  dtAutoSelect.    
       
.

  MediaPlayer       FileNanu
     .   
 AutoOpen  true. , , ,  .

  .        
 (, ,  ,     
  ).

 -  -   MediaPlayer, (
   .      (. 5.21).
   (Labell)   :.   (Label2)  (
   ,   (Label3)  
 .   (Label4)     Lt
bell ,     .       ;

 ,       (. . 5.21), 
        .

,      ,  
.

^include "filectrl.hpp"

AnsiString ModeStr[7] = ("He ", "","",
"","","",""} ;

AnsiString ButtonStr[9] = {"","","",

"","","","","",""}
//-

void _fastcall TFormI::FormCreate(TObject *Sender)

(

Label4->Caption = MinimizeName(MediaPlayerl->FileName,Label4->
Canvas,200);

Label2->Caption = ": " + ModeStr[MediaPlayerl->Mode];

MediaPlayerl->Notify = true;

//_

void _fastcall TFormI::OpenClick(TObject *Sender)
(

if (OpenDialogl->Execute())
(