解决Inno setup调用有依赖其他dll的dll加载问题

Posted 2023-02-26 Jimmy1224

在Inno setup打包工具中，提供了加载DLL以及调用DLL中的函数方法，相关函数声明如下图所示：

[Files]
Source: "A.dll"; Flags: dontcopy
;B.dll为通用模块，还有其他dll依赖B.dll
Source: "B.dll"; DestDir: "app"

[Code]
procedure MyFunc(hWnd: Integer; lpText, lpCaption: AnsiString; uType: Cardinal);
external 'MyFunc@files:A.dll stdcall';

这些在Inno setup给的帮助文档中都有详细说明；如果我们直接加载的DLL又需要依赖其他DLL，其关系网络如下所示，如果没有进行一些特殊处理，我们将无法成功执行相关函数：

对于这种情况，我们要做一些适当的处理，最重要的一步就是在调用MyFunc函数前，需要将B.dll提前加载起来或者将B.dll放到指定路径，比如系统目录；这样在执行MyFunc函数时就不会因为依赖问题导致执行失败了。

修改后的打包脚本代码如下：

[Files]
Source: "A.dll"; Flags: dontcopy
;B.dll为通用模块，还有其他dll依赖B.dll
Source: "B.dll"; DestDir: "app"

[Code]
procedure MyFunc(hWnd: Integer; lpText, lpCaption: AnsiString; uType: Cardinal);
external 'MyFunc@files:A.dll stdcall delayload';//延迟加载dll

procedure InitializeWizard;
var
   iErrCode: Integer; 
begin
    //其他安装包中B.dll
    ExtractTemporaryFile('B.dll');
    //第一种：B.dll拷贝到系统目录
    FileCopy(ExpandConstant('tmp\\B.dll'),ExpandConstant('sys\\B.dll'), False);
    //第二中方式：提前加载dll到系统中
    //LoadDLL(ExpandConstant('tmp\\B.dll'), iErrCode) 
end；

通过以上修改就可以支持dll又依赖其他dll，导致函数执行失败的问题了