Hola steelha.
Lamentablemente no vas a lograr la pausa que deseas con la función
sndPlaySound ya que no posee esa funcionalidad.
Sin embargo podes hacerlo sin problemas con la función
mciSendString, un ejemplo:
Código Delphi
[-]
...
uses MMSystem;
procedure PlayAudioWithPause(aFileName: TFileName; Pause: Integer);
begin
mciSendString(PChar('open ' + aFileName + ' alias MY_SOUND'),nil,0,0);
mciSendString(PChar('play MY_SOUND'),nil,0,0); Application.ProcessMessages;
Sleep(Pause);
mciSendString(PChar('pause MY_SOUND'),nil,0,0); Sleep(Pause);
mciSendString(PChar('resume MY_SOUND'),nil,0,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlayAudioWithPause('C:\Users\Un_usuario\Music\Musica.wav', 5000); end;
Pero me confunde el título con el comentario del código, ¿ El problema era con el audio no ?
Saludos
