给Delphi源文件再做做手术（编译大小优化、源码案例添加）

冥界3大法王

某天法王姥爷学会了DLL的创建和编写插件，于是开始上瘾了。
每次点击这个生成（或Delphi 7的DLL Wizard时）


都会生成如上代码
这让法王姥爷很是不满意
名为wizard向导向导，你到是“导”啊
搞了一堆无用的代码白白碍眼占地方
于是俺想了想，为何不让它办点更有意义的事呢？


先用TC搜索下Delphi的目录
很容易发现其来源于 x:\Delphi11.1\bin\delphicoreide280.bpl这个文件
我们先把它复制一份备份下，不然一次改错了，没有备份你就得重装IDE
这可是个非常费时的活儿。


我们先开着记事本


把要输入的内容打好（ANSI编码，保存时千万别搞错了！）并结合Delphi中的IDE观察下位置



另外再在WinHEX里打开，得知占用了360个字节
再把我们的1.txt从WinHEX中打开，Ctrl+A, Ctrl+Shift+C (全选择并复制16进制机器码到剪贴板）
回到上一窗口中找到开始的{ 处定位点击，按下Ctrl+B，并Ctrl+S)
现在启动Delphi重新创建DLL，观察效果吧。


效果还不错吧？ 该有的都有了。再把上面不起作用和报错的地方整理修缮下

把
“下面粘入如下”
移到
｝
的下面
改成
//下面粘入如下

下面还有一部分原来的东西，可以发挥想像再添加点东西就完毕了。
到这，咱们的简易、实用修改教程就结束了。是不是很简单呢？
小伙伴们，快自己动手个性添加吧。

cnmingxing

感谢分享

Icried

感谢分享

冥界3大法王

原来的内容如下：

[Asm] 纯文本查看 复制代码

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. 

  Important note about VCL usage: when this DLL will be implicitly
  loaded and this DLL uses TWicImage / TImageCollection created in 
  any unit initialization section, then Vcl.WicImageInit must be 
  included into your library's USES clause. }

uses
  System.SysUtils,
  System.Classes;

{$R *.res}

begin
end.

这样覆盖着修改就更不会报错了。

kenxy

这都被你给想到了，我要为你点赞！

iloong

学习了，这办法挺不错的

冥界3大法王

kenxy 发表于 2024-11-28 10:31
这都被你给想到了，我要为你点赞！

用此方法你还能修改cmd、原来的工程文件等等，这样就可以一劳永逸了。

a4a

对库文件修改，解决源头问题，不错。

大侠在路上

支持技术贴，手动删除有时候确实很麻烦