Delphi中增强程序的不同Windows版本的兼容性技巧

在开发过程中,一个程序(DLL/EXE)经常需要同时兼容不同版本的Windows(XP、WIN7 ...),但是由于新版本的Windows某些API在旧版本不存在,如果程序使用external引入API,则会导致在旧版本Windows中运行时提示“找不到某某程序文件路径...”、"无法加载DLL...",因为在旧版本Windows中运行EXE或DLL,系统会先检测external引入的API,如果找不到某个API,系统会直接报错,无法运行,这时候Delphi提供了关键字 delayed来修饰external

如下面的API

function RegDeleteKeyEx; external advapi32 name 'RegDeleteKeyExW' delayed;
function RegDeleteKeyExA; external advapi32 name 'RegDeleteKeyExA' delayed;
function RegDeleteKeyExW; external advapi32 name 'RegDeleteKeyExW' delayed;

增加delayed意味着只有在真正第一次调用该API时,才去加载该DLL和API,当然这只是字面上的意思,

实际上(大概原理)Delphi是结合PE文件的IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT特点,

同时利用微软提供的delayhlp.cpp编译后的delayhlp.obj(sysinit中静态链接了该obj文件)中提供的方法,通过设置延迟加载的通知HOOK方法

在程序调用函数时,自动跳转到delayhlp中的函数,再调用通知HOOK(NotifyHook)返回自定义的加载函数去加载DLL和获取函数真实地址,成功后会赋值给真正的IAT,下次调用就不会再重复加载DLL了。

posted on 2015-10-06 02:30  峋山隐修会  阅读(1188)  评论(0编辑  收藏  举报

导航