Social Icons

^^

domingo, 10 de janeiro de 2010

Colocar música em uma aplicação Delphi assim que ela for iniciada

Abra seu Delphi e no evento Oncreate coloque o seguinte código: SndPlaySound('local da musica +  a estensão', SND_ASYNC) ;

exemplo:

SndPlaySound('C:\Documents and Settings\Jefferson\Desktop\testes\project\opera.wav', SND_ASYNC) ;

e no uses da unit coloque MMSystem;

exemplo:

uses


Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,MMSystem;

9 comentários:

  1. Se eu não me engano esses comando MMSystem, so executa arquivos de estensão .WAV
    Arquivos como mp3 entre outros ele não ira tocar
    Jefferson me corrija se eu estiver errado.
    xD

    ResponderExcluir
  2. Vcoê está certo... para poder excutar músicas .mp3 voc~e ter´que usar o TMediaPlayer

    ResponderExcluir
  3. + quando eu utilizo o mediaplayer so da pra abrir o programa se ele tiver no meu pc e no local onde estao as musicas tem como fazer ele tocar a musica em qualquer lugar?

    ResponderExcluir
  4. eu usei esse codigo mais quando o programa esta em outro pc ele nao funciona a musica oque devo fazer?

    ResponderExcluir
  5. É porque a musica tem que estar no pc de quem quer que for, caso queira é possivel transformar a musica em arquivo de recurso e extrair para um determinado local quando tiver que ser executada.

    ResponderExcluir
  6. mais se eu inserir o TMediaPlayer, teria q clicar no play para o som funcionar, como faço para q um som no formato .mp3 seja reproduzido automaticamente qnd o form aparecer ??

    abrass ae.

    ResponderExcluir
  7. Faça o seguinte:
    * coloque um TMediaPlayer da paleta system
    * Sete a opção AutoOpen para true
    * Sete a opção FileName para o caminho da musica que vc quer abrir
    * no evento OnCreate do Form coloque
    MediaPlayer1.Play;

    acho que isso já resolve.

    ResponderExcluir
  8. Não
    Vocês todos estão errados.
    esse comando executa apenas .wav,más,ja existem sites/programas que convertem qualquer extensão pra outra.

    Exemplo : .mp3 to .wav Online

    ResponderExcluir

Popular Posts

- Arquivo -

 

Seguidores

Hora exata:

Total de visualizações de página