Sons simultâneos sem usar componente

Delphi

07/02/2004

Olá pessoal,

Gostaria de saber se tem alguém que sabe programar para tocar sons simultâneos sem usar recursos do directx ou componentes, mas se for possível, tipo:

var
Arq: array [0..79] of char;
begin
StrPCopy(Arq, ´som1.wav´);
SndPlaySound(Arq, snd_async);

StrPCopy(Arq, ´som2.wav´);
SndPlaySound(Arq, snd_async);
end;

Executar os dois sons ao mesmo tempo, um servindo de música de fundo e outro de efeitos sonoros!

Pessoal, qualquer ajuda agradeço!
Obrigado! :D


Marcioih

Marcioih

Curtidas 0

Respostas

Cebikyn

Cebikyn

07/02/2004

Declare [b:5ade99966b]MMSystem[/b:5ade99966b] na cláusula uses de sua unit.

Antes de tocar o primeiro som, coloque:

mciSendString(´open waveaudio shareable´, nil, 0, 0);

Use isto para cada som que vc quer tocar:

mciSendString(´play "C:\xyz\Musica.wav"´, nil, 0, 0);

Depois de tocar todos os seus sons, use:

mciSendString(´close waveaudio´, nil, 0, 0);



GOSTEI 0
Marcioih

Marcioih

07/02/2004

Valeu cebikyn, vou fazer um teste!
Muito obrigado pela ajuda!
:D


GOSTEI 0
POSTAR