调用资源文件时,能否将资源文件保存到指定目录?以下代码只能将资源文件还原到应用文件所在目录,如何修改?-----------------------------------------------------------------------------------------------
procedure MusicResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName); //将资源保存为文件,即还原文件
Res.Free;
end;
调用该过程:
MusicResToFile('SRC2', 'FILE2', 'TheSecondMusic.MP3');
procedure MusicResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName); //将资源保存为文件,即还原文件
Res.Free;
end;
调用该过程:
MusicResToFile('SRC2', 'FILE2', 'TheSecondMusic.MP3');
把第三个参数改一下不行?
MusicResToFile('SRC2', 'FILE2', 'f:\TheSecondMusic.MP3');