Переместить окно другой программы и убрать границы - PullRequest
0 голосов
/ 05 января 2012

Я работаю над проектом по внедрению другой программы в 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 голосов
/ 31 июля 2013

Мне кажется, я понял:

[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);
...