Multimidia - wav dentro do exe

Com um editor de texto crie um novo arquivo chamado SOM.RC e insira

os WAV's que quiser nele, assim:

WAV_TESTE1  WAVE "start.wav"

WAV_TESTE2  WAVE "chord.wav"

WAV_TESTE3  WAVE "chimes.wav"

MID_TESTE1    MIDI "Teste.mid"

etc.

Os arquivos WAV's e MIDI's devem estar no diretório onde o arquivo de

recurso está sendo criado.

Compile-o com o BRCC32.EXE que está em Delphi\Bin assim:

BRCC32 Som.rc

Será gerado um novo arquivo chamado SOM.RES.

No Delphi, crie um novo projeto, acrescente MMSystem ao USES

e acrecente o resto:

implementation

{$R *.DFM}

{$R SOM.RES}    // Não esqueça disto

procedure TForm1.Execute_WAVE( Res_Name: String );

begin

  PlaySound( PChar( Res_Name ),

                    hInstance,

                    SND_ASYNC or SND_RESOURCE );

end;

end.

Para tocar faça o seguinte: Execute_WAVE( 'WAV_TESTE1' );

H.P.: http://www.geocities.com/SiliconValley/Lakes/8103/