Eu consegui fazer uma Thread que toque a música, mas apenas por 1 vez. Se eu colocar um laço nela tenho diversos errors, como o 1400.
Parece que a thread não fecha quando se fecha o Form1, pois o problema sempre dá quando eu tento fecha-lo.
Eu tenho apenas 2 units. 1 é o Form1 e a outra é a TMusica thread.
Já tentei o Goto, While, Repeat, With. Nada funciona, a música se chama music.mp3. Uso o Delphi XE8
. Como resolvo?
Chamada da Thread TMusica:
procedure TForm1.FormCreate(Sender: TObject);
var
Thread:TMusica;
begin
//Bloco de Códigos
Thread := TMusica.Create(False);
Thread.FreeOnTerminate := True;
Thread.Resume;
//Outros códigos...
end;
A Thread TMusica:
procedure TMusica.Execute;
begin
Form1.MediaPlayer1.FileName: = 'music.mp3';
Form1.MediaPlayer1.Open;
Form1.MediaPlayer1.Play;
end;