如何使用从Delphi DLL

Question

我有多个Windows主机应用程序和一个DLL都是用Delphi创建的。 DLL包含按需显示的一些（模态）对话框表单。我已经将Forms.Application.Handle从当前运行的主机应用程序传递给DLL以获得正确的Windows所有权。不幸的是，从DLL创建的对话框仍然显示一个通用图标，而不是使用主应用程序图标，就像在主机应用程序中直接创建的对话框一样。

如何从DLL打开基于tForm的对话框，以使用主机可执行文件中的当前应用程序图标而不是通用Windows图标？

Answer 1

显然，可以通过将Forms.Application.Icon.Handle句柄值传递给库并将其分配给那里的tApplication实例来处理DLL的主机应用程序图标。

虚拟图书馆代码：

procedure MyLib_SetAppIcon( Icon : hIcon ); stdcall;
begin
   if (Icon > 0) then
      Forms.Application.Icon.Handle := Icon;
end;

虚拟主机代码：

procedure MyLib_SetAppIcon( Icon : hIcon ); stdcall; external 'MyLib.dll';

// ...
MyLib_SetAppIcon(Forms.Application.Icon.Handle);
// ...