Reproducir audio en archivo de recursos con TMediaPlayer

[ecfisa]

Hola sbraceras y bienvenido a Club Delphi

Una opción es usar la función mciSendString.

Ejemplo:

Código Delphi [-]
...
implementation

{$R *.dfm} {$R Recurso.res}

uses MMSystem;

procedure TForm1.FormCreate(Sender: TObject);
var
  RStream: TResourceStream;
  PathAndFile: string;
begin
  PathAndFile:= ExtractFilePath(Application.ExeName) + 'sound.mp3';
  RStream := TResourceStream.Create(HINSTANCE, 'sound', RT_RCDATA);
  try
    RStream.SaveToFile(PathAndFile);
    mciSendString('close media', nil,0, 0);
    mciSendString(PChar('open "' + PathAndFile + '" alias media'), nil, 0, 0);
    mciSendString('play media', nil, 0, 0);
  finally
    RStream.Free;
    DeleteFile(PathAndFile);
  end;
end;
...

Saludos.