发布网友 发布时间:2022-04-24 06:40
共1个回答
热心网友 时间:2022-06-17 01:58
首先用记事本建立一个扩展名为.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}
//读取资源
procere TForm1.Button1Click(Sender: TObject);
begin
with TResourceStream.Create(HInstance, 'Music', RT_RCDATA) do
begin
SaveToFile('c:\temp.wav');
Free;
end;
end;