Inno安装程序无法导入DLL

Question

我没有运气将Delphi DLL导入Inno Setup（Unicode）。 DLL有一个简单的过程..

procedure Foo(); stdcall;
begin

end;

exports
  Foo;

DLL包含在安装程序源中，并添加到文件列表中：

[Files]
Source: "MyDLL.dll"; Flags: dontcopy

然后，我在初始化中提取这个DLL：

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('MyDLL.dll');
end;

最后，在脚本中声明了这个过程：

function DoFoo(): Bool;
  external 'Foo@MyDLL.dll stdcall';

但是，当我运行设置时，出现错误：

Cannot Import dll: <utf8>MyDLL.dll.

我做错了什么？

Answer 1

由于您未在函数导入中使用延迟加载，因此Inno Setup加载程序无法运行，因为它找不到您的库。这是因为检查功能导出是否可用是在InitializeSetup事件被触发之前执行的，因此您的库尚未从存档中提取。

在您的情况下，正确地添加delayload导入选项。但是，如果在库文件名之前添加files:前缀，则可以省略手动提取并告诉安装程序为您提取库。此前缀为documented：

  

在安装过程中，还可以使用特殊的“files：”前缀来指示   设置为从[文件]中自动提取一个或多个DLL   加载第一个DLL之前的部分。

您的案例中的整个导入可以缩短为：

[Files]
Source: "MyDLL.dll"; Flags: dontcopy

[Code]
procedure Foo;
  external 'Foo@files:MyDLL.dll stdcall';

Answer 2

我在导入时使用delayload发布此问题后立即找到解决方案...

function DoFoo(): Bool;
  external 'Foo@MyDLL.dll stdcall delayload';