将可执行窗体程序嵌入到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的一个“窗体”,这个就不对了,解决思路如下:

  1. 通过FindWindow的API调用通过类或者窗体标题查找到主窗体的句柄,但是我实验了之后发现失败了,找不到真正的主窗体。
  2. 通过枚举所有窗体然后通过GetWindowThreadProcessId的API判断进程与上面代码中进行进行比较,这个思路按道理讲应该是能够成功的,但是我还是没有搞定,可能是积水水平太差劲。
  3. 使用Delphi2010或更高版本重写原有的Delphi6/7的程序,但是涉及到Char和String的Unicode问题,非常非常的恶心,很可能编译过去了,但是不能用。
  4. 将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);
    }
}

三、总结

大概就这些,不整了。

你可能感兴趣的:(将可执行窗体程序嵌入到C#的TabControl中)