Delphi 释放文件

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;

本作品采用知识共享署名 4.0 国际许可协议进行许可

文章评论