把视频文件打包可能吗？

[feicheng]

有何方法可以把视频文件打包到多媒体作品里面去，而不做为独立文件存在，恐怕没有吧。

[wddarkknight]

使用资源阿

[taxi]

首先用记事本建立一个扩展名为.rc的文件，内容如下（供参考）：
Music RCDATA d:\Music\笑傲江湖.wav
Video RCDATA E:\delphi6\Demos\CoolStuf\SpeedIs.avi
将其保存到工程文件所在目录，然后编译为资源文件，方法如下：
E:\delphi6\bin\brcc32.exe e:\YourProjectPath\xxxxx.res
然后在源文件中加入该资源文件
{$ xxxxxx.res}

//读取资源
procedure TForm1.Button1Click(Sender: TObject);
begin
with TResourceStream.Create(HInstance, 'Music', RT_RCDATA) do
begin
SaveToFile('c:\temp.wav');
Free;
end;
end;