You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
1.1 KiB
31 lines
1.1 KiB
Public Class frmPluginWindow
|
|
Private Sub frmPluginWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Sub Get_Plugins()
|
|
Dim myProcess As Process = New Process()
|
|
Dim MyHandle As IntPtr
|
|
'myProcess.StartInfo.FileName = "notepad.exe"
|
|
myProcess.StartInfo.FileName = "E:\Software-Projekte\EDOKA\client\EDOKA_Erweiterungen\bin\Debug\EDOKA_Erweiterungen.exe"
|
|
myProcess.StartInfo.Arguments = Me.ParentForm.Handle
|
|
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
|
|
myProcess.Start()
|
|
'MyHandle = Win32API.FindWindow(vbNullString, "notepad.exe")
|
|
MyHandle = Win32API.FindWindow(vbNullString, "EDOKA_Erweiterungen.exe")
|
|
Dim dt As DateTime = Now
|
|
While Now < dt.AddSeconds(1)
|
|
Application.DoEvents()
|
|
End While
|
|
myProcess.WaitForInputIdle()
|
|
Win32API.SetParent(myProcess.MainWindowHandle, Me.Handle)
|
|
myProcess.WaitForInputIdle()
|
|
|
|
|
|
Win32API.ShowWindow(myProcess.MainWindowHandle, 3)
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
End Class |