Presentar Multiples videos consecutivos

[ecfisa]

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); // reproducir
  Application.ProcessMessages;
  Sleep(Pause);
  mciSendString(PChar('pause MY_SOUND'),nil,0,0); // pausa
  Sleep(Pause);
  mciSendString(PChar('resume MY_SOUND'),nil,0,0); // continuar
  { mciSendString(PChar('stop MY_SOUND'),nil,0,0); // (detiene la reproduccion) }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlayAudioWithPause('C:\Users\Un_usuario\Music\Musica.wav', 5000); // 5000 = 5 segs.
end;

Pero me confunde el título con el comentario del código, ¿ El problema era con el audio no ?

Saludos