[DK-x]

مرحبا

عندي برنامج .exe ومحتاج اعرضه داخل برنامجي كييف

توضيح:

   

[elgokr]

مرحباً اخى DK-x

لاتمام عمل ذلك عليك اتمام التالى

قم باضافة Panel و Button

ثم قم باستخدام الكود التالى داخل الفورم كاملاً

كود :

Imports System.Threading

Public Class Form1
   Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
   Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
   Private Const WM_SYSCOMMAND As Integer = 274
   Private Const SC_MAXIMIZE As Integer = 61488
   Dim proc As Process

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       proc = Process.Start("notepad")
       proc.WaitForInputIdle()
       Thread.Sleep(1000)
       SetParent(proc.MainWindowHandle, Me.Panel1.Handle)
       Thread.Sleep(1000)
       SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
   End Sub

End Class

مرفق السورس + برنامج للاختبار

السورس (2015)

كل ما عليك فقط تغيير كلمة notepad

بمسار البرنامج المطلوب تشغيله داخل البرنامج مثل

PHP كود :

D:\Folder\File.exe 


تحياتى لك

وتمنياتى لك التوفيق

[DK-x]

جزيل الشكر لك اخي elgokr
وممكن رابط نسخة الفيجوال بيسك الي تستخدمها

[elgokr]

الشكر لله

استخدم النسخة 2015

يمكنك الاطلاع على الرابط التالى قد ييدك

https://visualstudio.microsoft.com/vs/older-downloads/

تحياتى لك

وتمنياتى لك التوفيق