请问各位高手怎样把AVI等资源文件嵌入到EXE文件中阿！

Question

请问各位高手怎样把AVI等资源文件在编译时嵌入到EXE文件中，和如何在程序中调用它们阿？？？请指教！

Answer 1

自己做一个一个资源文件的描述文本RC文件，例如 sample.rc ，“记事本”程序创建就行了。然后可以输入一些我们要定义的资源，例如：MEN BITMAP c:\bitmap\men.bitmap
ARJ EXEFILE c:\arj.exe
MOV AVI c:\mov.avi然后用BRCC32把这个RC文件编译成sample.res（真正的资源文件）。在Delphi的工程文件中使用 $R 编译指令让Delphi包括资源到EXE文件里面。{$R sample.res}这样我们就可以在这个单一的执行文件中调用资源了。举例如下：EXEFILE：procedure ExtractRes(ResType, ResName, ResNewName : String);
var 
Res : TResourceStream; 
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free; 
end;AVI：procedure LoadAVI;
begin
{Avi1是一个TAnimate类}
Avi1.ResName:='AVI';
Avi1.Active:=True;
end;

Answer 2

{sample.rc文件：
MOV AVI D:\Program Files\Borland\Delphi5\Demos\Coolstuf\cool.avi
//程序运行后出现"sample.res"文件未发现错误。
执行brcc32.exe sample.rc sample.res，sample.res在当前文件夹中
}unit TestForm;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;type
  TForm1 = class(TForm)
    Avi1: TAnimate;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure ExtractRes(ResType, ResName, ResNewName : String);
    procedure LoadAVI;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}{$R sample.res}procedure TForm1.ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;procedure TForm1.LoadAVI;
begin
  {Avi1是一个TAnimate类}
  Avi1.ResName:='AVI';
  Avi1.Active:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  ExtractRes('TAnimate','sample.res','newsample');
  LoadAVI;
end;end.

Answer 3

Delphi的
打开View Resource菜单
在Res View中点击右键选择Add就可以了