Código
Na Unit do form vá até USES e acrescente lá: MMSystem, (coloque a vírgula).
Depois vá no evento OnShow do form e coloque o comando:
Begin
PlaySound('C:caminho_da_musicanome_da_musica.wav', 1, SND_ASYNC);
End;
End.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009