midi o mod en .exe

[MAXIUM]

Hola, quisiera saber como inserter un archivo midi o mod en un ejecutable (.exe) y que este se reprodusca al ejecutarlo (recurso). Se como insertar .wav y .mp3 pero con los midi no me resulta. Alguna ayuda porfavor.

[[marceloalegre]]

Hola:
en www.torry.net hay variedad de componentes para lo que estas buscando. Saludos.-

[MAXIUM]

solo aparecen vcl para reproducir. Lo que yo nececito es inscrustarlo comor recurso y luego reproducirlo desde ahi.

[dec]

Hola,

Podrías utilizar el programa PE Resource Explorer para crear un archivo ".res" que contenga el archivo MIDI que quieres reproducir. Es muy sencillo, solamente has de ejecutar el programa y elegir la opción del menú "Import RC Data resource". Hecho esto ya puedes guardar el archivo ".res", para después poder añadirlo a tu ejecutable de la siguiente manera:

Código Delphi [-]
{$R midi.res}

Suponiendo que el archivo ".res" se ha nombrado "midi.res", claro está. A continuación ya puedes utilizar ese recurso para extraer del mismo el archivo "midi" al disco duro. A partir de ahí podrías reproducirlo utilizando la función "MCISendString", que se incluye en la unidad "MMSystem".

La cosa podría quedar más o menos así, con los retoques oportunos:

Código Delphi [-]
{$R midi.res}

uses
  MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
var
  rs: TResourceStream;
begin
  rs := TResourceStream.Create(HInstance, 'MIDI', RT_RCDATA);
  try
    rs.SaveToFile('C:\midi.mid');
    MCISendString(PChar('play ' + 'C:\midi.mid'), nil, 0, 0);
  finally
    rs.Free;
  end;
end;

[roman]

También podrías usar el XN Resource Editor, que es gratuito e incluso incluye código fuente en Delphi.

// Saludos

[dec]

Hola,

Empezado por Román

También podrías usar el XN Resource Editor, que es gratuito e incluso incluye código fuente en Delphi.

Está chido. ¿No se dice así?