本文整理自网络,侵删。
varMyRes: TResourceStream; //资源文件
beginif 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;
相关阅读 >>
Delphi xe(indy10)tidbytes转ansistring的实现
Delphi 文件查找findfirst,findnext,findclose
Delphi代码,直截注入别的进程,之后直截运行在别的进程中的代码
更多相关阅读请进入《Delphi》频道 >>