移动另一个程序的窗口并删除边框

时间:2012-01-05 12:31:26

标签: vb.net setparent

我正在开发一个项目,在Panel中嵌入另一个程序。我让这个工作,但我似乎无法将窗口放在窗体内。

照片:

enter image description here

到目前为止我没有运气使用MoveWindow和SetWindowLong ..这是我的Onload事件;

Dim proc As Process = Process.Start("C:\Nexon\MapleStory\MapleStory.exe", "GameLaunching")
proc.WaitForInputIdle()
SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND2, SC_CLOSE, 0)

System.Threading.Thread.Sleep(5000)
Do
  System.Threading.Thread.Sleep(5000)
Loop Until FindWindow("MaplestoryClass", Nothing)
System.Threading.Thread.Sleep(500)

SetWindowLong(Processes(0).MainWindowHandle, GWL_STYLE, WS_VISIBLE)

MoveWindow(Processes(0).MainWindowHandle, Panel1.Left, Panel1.Top, Panel1.Right, Panel1.Bottom, True)

Dim FHandle As IntPtr
FHandle = FindWindow("MaplestoryClass", Nothing)
SetParent(FHandle, Panel1.Handle)

我需要找到一种方法来等待程序的窗口显示,然后执行MoveWindow和SetWindowLong事件..

1 个答案:

答案 0 :(得分:0)

我想我明白了:

[DllImport("user32.dll")] static extern IntPtr SetParent(IntPtr hWndChild, IntPtr hWndNewParent);
[DllImport("user32.dll")] static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);
[DllImport("user32.dll")] static extern int SetWindowLong(IntPtr hWnd, int nIndex, int dwNewLong);

Process p = new Process();
p.StartInfo.FileName = "programPath";
p.Start();
p.WaitForInputIdle();

SetParent(p.MainWindowHandle, Panel1.Handle);
SetWindowLong(p.MainWindowHandle, -16, 0x10000000);
ShowWindow(p.MainWindowHandle, 3);