二零二零年七月二十八日,于石门。
一、需求
当前做的系统使用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);
}
}
三、总结
大概就这些,不整了。