Código
Na Unit da tela de apresentação vá até USES e acrescente lá: MMSystem, (coloque a vírgula).
Depois vá no evento OnShow da tela splash e coloque o comando:
Begin
PlaySound('C:caminho_da_musicanome_da_musica.wav', 1, SND_ASYNC);
End;
End.
Obs: eu só descobri com arquivos wav. No www.baixaki.ig.com.br tem
programas que converter mp3 para wav (indico o aimp). Na Pasta:
c:windowsmedia, tem arquivos wav do sistema que você pode estar testando
no seu programa. Eu dei a dica na tela splash, mas vc pode fazer isso ao abrir um formulário (evento OnShow ou OnCreate), ou quando clicar em algum botão (evento Onclick). Se você não sabe fazer a tela splash, eu postei aqui no site como se faz uma, é só pesquisar por: "Tela splash (tela de apresentação do programa)", é simples fazê-la, Abraço.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009