首先用记事本建立一个扩展名为.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;
//自己发挥想象力。