1

我正在用 Delphi 7 编写一个程序，我想把音乐放在后台运行。所以，我用 .MIDI 写了一首名为 Song.MID 的歌曲，现在我想把我的 Delphi 程序自解压（SFX）这首歌并执行，在程序结束时删除它。这就像用十六进制写，我想。我该怎么做？

4

1 回答 1

3

新建一个文本文件，写：MIDI RCDATA 1.mid，保存文本文件为MID.rc 然后新建一个文本文件，写：brcc32 mid.rc，保存为“brcc.bat”

运行 brcc.bat，将 *.rc 文件转换为 *.res 将 MediaPlayer 移动到您的表单（媒体播放器位于“系统”选项卡上）。现在将此代码复制到您的项目中：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer;

type
  TForm1 = class(TForm)
    mplayer: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

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

procedure TForm1.FormCreate(Sender: TObject);
var
  stream:tresourcestream;
  tmp:string;
begin
  try
    stream:=tresourcestream.Create(hinstance,'MIDI',RT_RCDATA);
    try
      setlength(tmp,300);
      setlength(tmp,GetTempPath(300,pchar(tmp)));
      tmp:=tmp+inttostr(hinstance)+'.mid';
      stream.SaveToFile(tmp);
    finally
      stream.free;
    end;
    mplayer.FileName:=tmp;
    mplayer.Open;
    mplayer.Play;
  except
  end;
end;

end.

这是最简单的例子。因此，keygens 使用一种特殊的声音格式 - *.XM，该文件从资源中读入内存并使用 FMOD 之类的库播放（在互联网上阅读更多内容）

于 2015-11-01T18:15:49.220 回答