Resources con BRCC32.exe
 

He probado a compilar/asociar sonidos a un ejecutable y me ha ido bien pero el proceso se ralentiza de modo que se oye el sonido de un aplauso antes de que aparezca la letra en una aplicación infantil de colocar letras. Lo que queda bastante chusco.
Utilizo la función recomendada PlaySound('Identificador', 0, SND_RESOURCES).
La lectura de ficheros de sonido normal, va más rápida. Quisiera preguntar.
1.-¿Hay algún modo mejor para los sonidos guardados como recursos?
2.-¿Se puede ejecutar un archivo de sonido en background a modo de respaldo durante la duración de la aplicación?
Gracias a todos.

bulc,

Verifica que el sonido se ejecute después de finalizado el proceso de: "Aparezca la letra en una aplicación infantil".

Revisa estos links:
Los links anteriores muestran varios métodos para manejar recursos en Delphi.

Revisa este código del Link-2

Código Delphi [-]
uses mmsystem;
 ...
 procedure TForm1.Button1Click(Sender: TObject) ;
 var
   hFind, hRes: THandle;
   Song: PChar;
 begin
  hFind := FindResource(HInstance, 'MailBeep', 'WAVE') ;
  if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
    if hRes <> 0 then begin
      Song:=LockResource(hRes) ;
      if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;
      UnlockResource(hRes) ;
    end;
    FreeResource(hFind) ;
  end;
 end;

El código anterior es otra forma de obtener un recurso de sonido Wave de un EXE en Delphi, prueba si el performance se adapta a tu requerimiento. Puedes cambiar SndPlaySound(Song, snd_ASync or snd_Memory) por PlaySound(Song,0,SND_MEMORY or SND_ASYNC), verifica cual función se adapta mejor a tu aplicación.

Revisa el siguiente código:

Código Delphi [-]
PlaySound('Sound',0, SND_RESOURCE or SND_ASYNC or SND_LOOP);

El código anterior sonara de forma continua hasta que se ejecute:

Código Delphi [-]
PlaySound(0,0, SND_PURGE);

Revisa esta información:
Espero sea útil :)

Nelson.

Hola bulc.

Recuerda que no debes hacer más de una pregunta por hilo: Guía de estilo (punto 8).

En cuanto a tu primera consulta, es difícil de contestar sin saber que es lo que se está haciendo. Pero no creo que sea problema de la función PlaySound sino de la lógica de la aplicación.

En cuanto a la segunda, agrega a tu archivo de recursos una línea con el archivo de música que desees poner durante la espera (mp3 en el ejemplo).

Por ejemplo:
Luego para ejecutar la música:

Código Delphi [-]
...
uses MMSystem;

procedure PlayMusic;
var
  FileName: string;
begin
  with TResourceStream.Create(HINSTANCE, 'musica', RT_RCDATA) do
  try
    FileName:= ExtractFilePath(Application.ExeName) + '@M@u@s@i@[email protected]';
    SaveToFile(FileName);
    mciSendString('close media', nil,0, 0);
    mciSendString(PChar('open "' + FileName + '" alias media'), nil, 0, 0);
    mciSendString('play media notify repeat', nil, 0, 0);
  finally
    DeleteFile(FileName);
    Free;
  end;
end;

Para parar la ejecución en cualquier momento:

Código Delphi [-]
...
 mciSendString('stop media', nil, 0, Handle);
...

Saludos.

Buenos recursos, si señor
 

Bueno, la respuesta no puede ser mejor. Casi exhaustiva. Gracias a todos.
Bulc