{
关键字=将资源保存为文件 即还原文件
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:25:48
数字签名=F29062C1C6F1BB49CEE22986BB25334B
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, GDIPOBJ, GDIPAPI, GDIPUTIL, StdCtrls, ExtCtrls;
uses
xDrawForm, Unit2, Unit3;
procedure MusicResToFile(const ResName, ResType, FileName: string);
var
Res: TResourceStream;
begin
{将资源保存为文件,即还原文件
}
Res := TResourceStream.Create(HInstance, ResName, PChar(ResType)); Res.SaveToFile(FileName); //将资源保存为文件,即还原文件
Res.Free;
end;