将可执行窗体程序嵌入到C#的TabControl中

二零二零年七月二十八日，于石门。

一、需求

当前做的系统使用C#开发的，有主程序，能够动态加载一些东西。现在有一些旧的可执行程序需要嵌入到窗体的TabControl中作为TabPage形式展现，主要是为了和C#程序的现有Tab页面展现方式一致。

二、实现

(一) 声明

要实现这些功能需要用到一些Windows API函数，在C#中的声明如下：

[DllImport("user32.dll")]
public static extern int SetParent(IntPtr hWndChild, IntPtr hWndNewParent);

[DllImport("user32.dll")]
public static extern int MoveWindow(IntPtr hWnd, int x, int y, int nWidth, int nHeight, bool BRePaint);

[DllImport("user32.dll")]
public static extern bool DestroyWindow(IntPtr hWnd);

[DllImport("user32.dll")]
public static extern IntPtr FindWindow(string lpClassName, string lpWindowName);

其中：

SetParent用来设置窗体的父窗体。
MoveWindow用来改变窗体大小。
DestroyWindow用来关闭并窗体。
FindWindow用来查找窗体。

(二) 直接嵌入

如果是C#、C++、Delphi2010等开发的可执行程序，可以使用如下代码嵌入：

private void button4_Click(object sender, EventArgs e)
{
      Process process = new Process();
      ProcessStartInfo startInfo = new ProcessStartInfo("E:\\P3.exe");
      process.StartInfo = startInfo;
      process.StartInfo.UseShellExecute = false;
      process.Start();

      TabPage page = new TabPage(DateTime.Now.ToString())
      {
                Font = tabCtrl.Font
      };
      tabCtrl.TabPages.Add(page);

      IntPtr h = process.MainWindowHandle;
      SetParent(h, page.Handle);
      page.Tag = h;
      MoveWindow(h, 0, 0, page.ClientSize.Width, page.ClientSize.Height, true);
}

(三)间接嵌入

如果是Delphi6/7开发的可执行程序，上述方法是搞不定的，可以使用Spy++看进程，会发现process.MainWindowHandle指向了TApplication的一个“窗体”，这个就不对了，解决思路如下：

通过FindWindow的API调用通过类或者窗体标题查找到主窗体的句柄，但是我实验了之后发现失败了，找不到真正的主窗体。
通过枚举所有窗体然后通过GetWindowThreadProcessId的API判断进程与上面代码中进行进行比较，这个思路按道理讲应该是能够成功的，但是我还是没有搞定，可能是积水水平太差劲。
使用Delphi2010或更高版本重写原有的Delphi6/7的程序，但是涉及到Char和String的Unicode问题，非常非常的恶心，很可能编译过去了，但是不能用。
将EXE重新封装，封装成DLL，然后由C#进行调用，这个思路需要改造，但是很靠谱。

封装DLL方式：

Delphi中必须实现如下类型的DLL接口函数：

function ShowWindow : THandle; stdcall;

其中函数名称叫法最好固定，弄成一个接口规范就好。特别注意最后使用stdcall。

调用的方法：

C#中静态调用或者动态调用都可以：(静态调用为例)

[DllImport("E:\\Project1.dll")]
public static extern IntPtr ShowWindow();

private void button1_Click(object sender, EventArgs e)
{
      Random r = new Random((int)DateTime.Now.Ticks);
      TabPage page = new TabPage(DateTime.Now.ToString())
      {
            Font = tabCtrl.Font
      };
      tabCtrl.TabPages.Add(page);
      IntPtr h = ShowWindow();
      SetParent(h, page.Handle);
      page.Tag = h;
      MoveWindow(h, 0, 0, page.ClientSize.Width, page.ClientSize.Height, true);            
}

设置嵌入的窗体自动缩放：

private void panel1_SizeChanged(object sender, EventArgs e)
{
    foreach (TabPage page in tabCtrl.TabPages)
    {
        IntPtr h = (IntPtr)page.Tag;
        MoveWindow(h, 0, 0, page.ClientSize.Width, page.ClientSize.Height, true);
    }
}

实现删除嵌入的窗体：

private void button2_Click(object sender, EventArgs e)
{
    if (tabCtrl.TabCount > 0)
    {
        TabPage page = tabCtrl.SelectedTab;
        IntPtr h = (IntPtr)page.Tag;
        DestroyWindow(h);
        page.Tag = null;
        tabCtrl.TabPages.Remove(page);
    }
}

三、总结

大概就这些，不整了。