[VB6] Pb avec Shell

Voilà, je me réponds à moi même ...

J'ai trouvé une solution qui me convient puisqu'elle permet de faire fonctionner correctement mon appli même si je ne suis pas complètement satisfait car je n'ai pas d'explication de pourquoi ça ne marche pas ...

Voici la solution que j'ai implémentée:
Dans les déclarations :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 nShowCmd As Long) As Long
 
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
                                                                    ByVal lpString As String, _
                                                                    ByVal cch As Long) As Long
 
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
 
Private AppCible As String

Je mets aussi le code pour arrêter l'exécution en cours d'utilisation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Public Function EnumCallback(ByVal app_hWnd As Long, ByVal param As Long) As Long
 
Dim buf As String * 256
Dim Titre As String
Dim Longueur As Long
 
'Récupère le titre de la fenêtre
Longueur = GetWindowText(app_hWnd, buf, Len(buf))
Titre = Left$(buf, Longueur)
 
'Vérifie si le titre de la fenêtre correspond au nom recherché
If InStr(Titre, AppCible) <> 0 Then
    'Ferme la fenêtre
    SendMessage app_hWnd, WM_CLOSE, 0, 0
End If
 
'Poursuit l'énumération
EnumCallback = 1
 
End Function
 
Public Sub KillAppTxt(App_Cherchee As String)
 
AppCible = App_Cherchee
'Demande à Windows d'énumérer les fenêtres ouvertes
EnumWindows AddressOf EnumCallback, 0
 
End Sub

Et le code exécuter pour lancer l'application

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub LanceSim()
Dim fs
Dim Flect
Dim chlue As String
Dim testFiles As Boolean
 
    Set fs = CreateObject("Scripting.FileSystemObject")
 
    If fs.FileExists(app.Path & PathSep & "simulation.exe") Then
        hwndSim = ShellExecute(app.hInstance, "open", app.Path & PathSep & "dymosim.exe", "", app.Path, 1)
    Else
        MsgBox "Erreur simulation impossible", vbCritical
    End If
End Sub

Et l'arrêter

Code:

1
2
3
Public Sub StopSim()
    KillAppTxt app.Path & PathSep & "simulation.exe"
End Sub

Rmq: une chance pour l'arrêt en cours d'utilisation, l'application lancée ouvre une fenêtre dos dont le nom correspond au répertoire de travail et au nom de l'exécutable ...

Voilà mais je suis qu'en même preneur des infos dont les gens peuvent disposées sur le pourquoi du comment ça ne fonctionne pas avec Shell

Merci à tous

Théo