AVI файл проигрывается снова и снова

Previous  Top  Next

    
 

 

В примере AVI файл проигрывается снова и снова - используем событие MediaPlayer'а Notify

Code:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin with MediaPlayer1 do

   if NotifyValue = nvSuccessful then

     begin

       Notify := True;

       Play;

     end;

end;

 

 

Взято с сайта http://blackman.wp-club.net/myfaq/default.php

©Drkb::01313