Delphi程序退出时删除自身的实现

这样取得的地址实际上是这个封装代码的，而这段代码又处于 UnmapViewOfMap 解除映像范围类，因此，到调用 DeleteFile 函数的时候就无法反问到这段代码了。 　　解决的办法是，用GetProcAddress动态取得这几个API的地址。 　　Delphi&CB代码如下：