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;

发表回复

登录... 后才能评论