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;
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。