midi o mod en .exe
 

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.

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

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

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;

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

// Saludos

Hola,

Está chido. ¿No se dice así? :D