Ao terminar a música
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!!!!
begin
playlist.SetFocus;
keybd_event(40,0,0,0);
with MediaPlayer do
begin
FileName :=caminho.Text;
Open;
Play;
end;
end;
Obrigado!!!!
Rafaelgardini
Curtidas 0
Respostas
Beppe
23/02/2005
Antes de tocar a primeira música, faça
e no evento OnNotify do MediaPlayer, coloque:
Não testei mas deve ser algo assim...
MediaPlayer1.Notify := True;
e no evento OnNotify do MediaPlayer, coloque:
MediaPlayer1.Notify := True; if MediaPlayer1.Mode = mpStopped then begin // toque a próxima música end;
Não testei mas deve ser algo assim...
GOSTEI 0
Rafaelgardini
23/02/2005
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
como eu fasso para que ao execultar o opendialog selecione somente um diretorio e adcione os arquivos em um filelistbox.
Grato
GOSTEI 0
Rafaelgardini
23/02/2005
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
Jah Resolvi este problema com o componentes da paleta win 3.1
nao querendo ser chato + jah sendo ai vai
estou fazendo um MP3 Player e
gostaria de saber como posso fazer para qndo meu programa estiver minimizado ele avance 1 arquivo no filelistbox
Pois 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
GOSTEI 0
Rafaelgardini
23/02/2005
Alguém?
GOSTEI 0