将 WinForms 表单嵌入 Inno Setup 向导答案

【问题标题】：Embed WinForms form into Inno Setup wizard将 WinForms 表单嵌入 Inno Setup 向导
【发布时间】：2016-01-03 20:46:38
【问题描述】：

我需要在 Inno 设置向导中嵌入一个 WinForms 表单（带有BorderStyle = None）并遇到问题。

这是一个 Inno 设置脚本：

procedure EmbedConfiguratorForm(parentWnd: HWND);
  external 'EmbedConfiguratorForm@files:configurator.dll stdcall';

procedure InitializeWizard();
var
  cfgPageHandle: HWND;
begin
  cfgPageHandle := CreateCustomPage(wpSelectDir, 
    'Configuration', 
    ExpandConstant(description)).Surface.Handle;
  EmbedConfiguratorForm(cfgPageHandle);
end;

这是一段 C# 代码：

class WizardWindow : IWin32Window
{
    public WizardWindow(IntPtr handle)
    {
        Handle = handle;
    }

    public WizardWindow(int handle) : this(new IntPtr(handle))
    {
    }

    public IntPtr Handle { get; private set; }
}

public static class MainClass
{
    [DllExport("EmbedConfiguratorForm", CallingConvention.StdCall)]
    public static void EmbedConfiguratorForm(int parentWnd)
    {
        // System.Diagnostics.Debugger.Launch();
        ConfiguratorForm form = new ConfiguratorForm();
        form.Show(new WizardWindow(parentWnd));
    }
}

它可以工作，但不如预期。安装程序加载后，它会自动从configurator.dll 调用EmbedConfiguratorForm，并且表单会显示但不会进入安装向导页面。它显示在后面（见截图）。那我做错了什么？

【问题讨论】：

How to embed a form from a DLL into an Inno Setup wizard page?的可能重复
您的解决方案与重复问题中的相同，只是它们将父句柄传递给 DLL，而您从 DLL 传递子句柄。
当然。备注是 winforms 表单没有 Parent 作为句柄 (pointer)，而只有 Form 或 Control。所以最简单的方法就是使用SetParentwinapi函数。我认为这将与您从 InnoSetup 或 DLL 调用 SetParent 的位置相同
可以使用NativeWindow来包裹句柄，见stackoverflow.com/a/213751/850848
您是否尝试过自己使用这个（NativeWindow）？对不起，但它不适用于我的问题

标签： c# winforms inno-setup

【解决方案1】：

解决了。

解决办法是从DLL中返回一个新窗口（窗体）的句柄，并使用user32.SetParentWinAPI函数将窗体强制嵌入到向导中。这里有一段代码。

C#：

namespace configurator
{
    class WizardWindow : IWin32Window
    {
        public WizardWindow(IntPtr handle)
        {
            Handle = handle;
        }

        public WizardWindow(int handle) : this(new IntPtr(handle))
        {
        }

        public IntPtr Handle { get; private set; }
    }

    public static class MainClass
    {
        private static ConfiguratorForm _configuratorForm;

        [DllExport("EmbedConfiguratorForm", CallingConvention.StdCall)]
        public static IntPtr EmbedConfiguratorForm(int parentWnd)
        {
            _configuratorForm = new ConfiguratorForm();
            _configuratorForm.Show(new WizardWindow(parentWnd));
            return _configuratorForm.Handle;

        }

        [DllExport("CloseConfiguratorForm", CallingConvention.StdCall)]
        public static void CloseConfiguratorForm()
        {
            if (_configuratorForm != null)
            {
                _configuratorForm.Close();
                _configuratorForm.Dispose();
                _configuratorForm = null;
            }
        }
    }
}

Inno 设置脚本：

[Code]
const
  description = 'my page description';

var
  configFile: string;
  configuratorPage: TWizardPage;

function EmbedConfiguratorForm(parentWnd: HWND): HWND;
external 'EmbedConfiguratorForm@files:configurator.dll stdcall';

procedure CloseConfiguratorForm();
external 'CloseConfiguratorForm@files:configurator.dll stdcall';

function SetParent(hWndChild, hWndNewParent: HWND): HWND;
external 'SetParent@user32.dll stdcall';

procedure InitializeWizard();
begin
  configuratorPage := CreateCustomPage(wpSelectDir, 
    'Title', 'Description');
end;

procedure ShowConfigurationStep();
var
  cfgPageHandle: HWND;
  cfgWinHandle: HWND;
begin
  cfgPageHandle := configuratorPage.Surface.Handle;
  cfgWinHandle := EmbedConfiguratorForm(cfgPageHandle);
  SetParent(cfgWinHandle, cfgPageHandle);
end;

procedure CurPageChanged(CurPageId: Integer);
begin
  if (CurPageId = configuratorPage.ID) then
  begin
    ShowConfigurationStep();
  end else
  begin
    CloseConfiguratorForm(); // here we can make some optimization like checking previos page
  end;
end;

procedure DeinitializeSetup();
begin
  CloseConfiguratorForm();
end;

关于 C# DLL 的注意事项：
它使用UnmanagedExports NuGet 数据包（包含DLLExportAttribute）。

关于 Inno 设置脚本的注意事项：
在InitializeWizard 函数中我们只需要创建一个新页面，但是我们需要在CurPageChanged 中实现DLL 调用以确保我们的页面现在可以打开。

经过一些研究工作，我创建了一个小示例项目，解释 .Net 和 InnoSetup 的双向集成

https://github.com/sharpcoder7/innoGlue.net

【讨论】：