Ao terminar a m�sica

Question

Estou usando TMediaPlayer e gostaria que quando terminasse a m�sica execultasse o comando abaixo

begin
playlist.SetFocus;
keybd_event(40,0,0,0);
with MediaPlayer do
begin
FileName :=caminho.Text;
Open;
Play;
end;
end;

Obrigado!!!!

Beppe · Answer

Antes de tocar a primeira m�sica, fa�a[code:1:3b7e287b74]MediaPlayer1.Notify := True;[/code:1:3b7e287b74]e no evento OnNotify do MediaPlayer, coloque:[code:1:3b7e287b74]MediaPlayer1.Notify := True;if MediaPlayer1.Mode = mpStopped thenbegin  // toque a pr�xima m�sicaend;[/code:1:3b7e287b74]N�o testei mas deve ser algo assim......

Rafaelgardini · Answer

Fera valeu mesmo funcionou direitinho agora aproveitando o t�pico como eu fasso para que ao execultar o opendialog selecione somente um diretorio e adcione os arquivos em um filelistbox.Grato...

Rafaelgardini · Answer

[quote:afc6a1ee3c=�RafaelGardini�]Fera valeu mesmo funcionou direitinho agora aproveitando o t�pico como eu fasso para que ao execultar o opendialog selecione somente um diretorio e adcione os arquivos em um filelistbox.Grato[/quote:afc6a1ee3c]Jah Resolvi este problema com o componentes da paleta win 3.1nao querendo ser chato + jah sendo ai vaiestou fazendo um MP3 Player egostaria de saber como posso fazer para qndo meu programa estiver minimizado ele avance 1 arquivo no filelistboxPois com ele maximizado com um timer pode se fazer issu com o comando:playlist.SetFocus;keybd_event(40,0,0,0);mas qndo minimizado issu nao acontece como poderia faze ent�o?pesso ajuda de vcs!!!!vlw...

Rafaelgardini · Answer

Algu�m?...

F�rum Ao terminar a m�sica #269748