اجرای یک فایل exe

[mahdikalak]

سلام
میخوام یک فایل Exe در خود فرم اجرا شه

مثال:
اجرای notpad یا viber desktop در محیط فرم
ممنون

[meys34]

اینجوری میشه ولی دسترسی زیادی بهش نخواهید داشت و کنترل خاصی هم روش نمیشه انجام داد...

127849

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long


Private Sub Command1_Click()
Shell "notepad.exe"

Dim ChildHwnd As Long
ChildHwnd = FindWindow(vbNullString, "Untitled - Notepad")


SetParent ChildHwnd, Me.hWnd

End Sub