放置任意的文件到Delphi的EXE文件里面

时间： 2021-07-31 作者：daque

常常在delphi的运用步调中，咱们会挪用到很多的资源，比方图片，动画（avi），声响，以至于其余实行文献。固然，把那些资源散布到各别的目次不失为一个好方法，然而有没有大概把那些资源编写翻译成规范的windows资源进而链接到一个实行文献内里呢？咱们不妨本人做一个rc文献，比方 sample.rc ，rc文献本来即是一个资源文献的刻画文本，经过“登记本”步调创造就行了。而后不妨输出少许咱们要设置的资源，比方：men bitmap c:\bitmap\men.bitmaparj exefile c:\arj.exemov avi c:\mov.avi而后用brcc32把这个rc文献编写翻译成sample.res（真实的资源文献）。在delphi的工程文献中运用 $r 编写翻译训令让delphi囊括资源到exe文献内里。{$r sample.res}如许咱们就不妨在这个简单的实行文献中挪用资源了。举比方下：exefile：procedure extractres(restype, resname, resnewname : string);var res : tresourcestream; beginres := tresourcestream.create(hinstance, resname, pchar(restype)); res.savetofile(resnewname);res.free; end;avi：procedure loadavi;begin{avi1是一个tanimate类}avi1.resname:='avi';avi1.active:=true;end;

放置任意的文件到Delphi的EXE文件里面

相关推荐

推荐下载

热门阅览

最新排行