1、写一个类，在构造函数中写Initialize的内容，在析构函数中写Finalize的内容。
然后在单元中定义该类的全局变量，效果相当于Delphi中的I和F域了。
2、Borland编译器支持的特殊指令：
#pragma startup function-name <priority>

#pragma exit function-name <priority>
也可以实现，自己查看帮助吧