频道分类

Delphi 释放资源文件

作者:admin 来源: 日期:2020/9/30 15:05:41 人气: 标签:

 
var
MyRes: TResourceStream;  //资源文件

begin
if not FileExists('my.dll') then   //判断是否存在对应文件
  begin

    try
      dmRes := TResourceStream.Create(HInstance, 'my', RT_RCDATA);  //这里要提前添加RES文件,这个适用于XE版本
      dmRes.SaveToFile('my.dll');  //释放出Dll文件
      dmRes.Free;   //释放资源文件
    finally

    end;

  end;