Visual Basic 6 - Come inserire un *.EXE in un Form o in una Textbox di un form

tramite questa dichiarazione che ben conoscerete

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal ShowCmd As Long) As Long

ed a seguire il comando:

Private Sub Command1_Click()
Dim RET As Long
RET = ShellExecute(Me.hWnd, "open", "C:\Documents and Settings\Grishnackh\Desktop\test\my.exe", "", "", vbMinimizedFocus)
End Sub

premendo il tasto command1,riesco ad aprire un exe esterno al soft.
Il problema è che si apre a se stante il Form dove sto lavorando.
Vorrei invece che l'exe venisse incorporato dal Form,magari anche utilizzando il FORM LOAD
e quindi andando su quel FORM averlo a piena disposizione gia' caricato.

Cerco piu' che altro il "risultato grafico", per il resto funziona tutto,vorrei che risultasse come fosse parte del soft,magari mascherando anche la barra blu in alto dell'EXE e quindi risulti come se fosse parte del soft a tutti gli effetti

grazie mille anticipate
risulti proprio come

Non lo puoi fare e non ha senso ...

Per me ha senso,senso grafico.
Sicuro che non lo posso fare neanche usando una DLL magari scritta in altro linguaggio come il C (gia' uso DLL in C sotto VB6 per fare cose che VB6 non potrebbe fare).
Mi interessa sapere solo che in qualche modo si possa farlo e magari un'indirizzata.
Poi vedro' il da farsi.

Grazie infinite.Ciao

Non ha senso dal punto di vista tecnico ...

Ma tu di che tipo di exe parli? Uno qualsiasi? O uno in particolare ?

In ogni caso, se l'eseguibile non e' qualcosa di complesso (che so Autocad o Word o altro ...) potresti provare con un vecchio esempio di allapi.net ...

Te lo riporto cosi' com'era ...

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function InstanceToWnd(ByVal target_pid As Long) As Long
    Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
    'Find the first window
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
    Do While test_hwnd <> 0
        'Check if the window isn't a child
        If GetParent(test_hwnd) = 0 Then
            'Get the window's thread
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
            If test_pid = target_pid Then
                InstanceToWnd = test_hwnd
                Exit Do
            End If
        End If
        'retrieve the next window
        test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
    Loop
End Function
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Pid As Long
    'Lock the window update
    LockWindowUpdate GetDesktopWindow
    'Execute notepad.Exe
    Pid = Shell("c:\windows\notepad.exe", vbNormalFocus)
    If Pid = 0 Then MsgBox "Error starting the app"
    'retrieve the handle of the window
    mWnd = InstanceToWnd(Pid)
    'Set the notepad's parent
    SetParent mWnd, Me.hwnd
    'Put the focus on notepad
    Putfocus mWnd
    'Unlock windowupdate
    LockWindowUpdate False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Unload notepad
    DestroyWindow mWnd
    'End this program
    TerminateProcess GetCurrentProcess, 0
End Sub

GRANDE!!..non so se andra' ma GRAZIE 1000 volte GRAZIE!
L'exe è un piccolo Soft di appena 1 mega,WinExplorer by Dexter,non so se lo conosci.
Provo il tutto e ti faccio sapere


Ciao

Dunque il codice fila liscio e funziona bene.
Purtroppo mi apre il Form e subito dopo apre il soft ma esternamente.
Ora chiedo,il nome del Form usato è Form5,non vedo riferimenti a nomeForm,pero' se cosi' si comporta è come se mancasse qualche riferimento al collegamento fra Form e Soft.
Vedi nel codice qualche possibile modifica da apportare?
Il succo dovrebbe essere qui:

Function InstanceToWnd(ByVal target_pid As Long) As Long 
    Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long 
    'Find the first window 
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&) 
    Do While test_hwnd <> 0 
        'Check If the window isn't a child 
        If GetParent(test_hwnd) = 0 Then 
            'Get the window's thread 
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid) 
            If test_pid = target_pid Then 
                InstanceToWnd = test_hwnd 
                Exit Do 
            End If 
        End If 
        'retrieve the Next window 
        test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT) 
    Loop 
End Function 

dai REM vedo che cerca la prima finestra(quale?),poi se la finestra non è CHILD esce(scusami l'ignoranza ma il termine CHILD non l'ho ancora approfondito),e poi se supera il test credo abiliti a fare l'operazione.
Forse il mio Form5 va settato opportunamente?
Forse la chiave è quel termine CHILD?
Nel FormLoad vedo la shell di richiamo ma non riesco a vedere il comando che incorpora
il soft richiamato dalla Shell dentro un Form.
Qyuello che vorrei tradurre in stringa VB6 è data come var PID,dire a PID di aprirsi dentro FORM5.

dal codice:

If Pid = 0 Then MsgBox "Error starting the app"

if PID <> 0 then "apri PID dentro Form5" < come lo traduco in VB6?"

Ciao,grazie

Solo con la SHELL come la giriamo giriamo mi sono reso conto è sempre un problema fare cio' che intendo fare.
Se davvero fosse impossibile usare qualsiasi metodo in VB6,API comprese ,penso sia cmq possibile usare un altro linguaggio come il .NET per creare una DLL da richiamare
dentro il progetto VB6.
Mi basterebbero i comandi giusti in NET o C,decidete Voi che siete molto piu' esperti di me il caso migliore e dirmi anche il comando per richiamare tale DLL per dargli il percorso del piccolo EXE in questione.
Perche' sempre di piccole utility si tratta,non mi verrebbe mai in mente di andare a richiamare grandi compilati.
Per compilare la DLL posso vedere sbrigarmela da me.
E' possibile avere questo aiuto?

Un grazie anticipato,Ciao

Non ho capito ancora il problema ... dove si puo' scaricare questo programma di cui parli?