quitter une appli ouverte avec Shell

Question

J'ouvre une appli avec shell
Shell "d:\mon_appli.exe", vbnormalFocus

Mais maintenant je desire la fermer pour lemoment j'utilise sendkeys pour envoyer les raccourci habituel pour fermer le programme  genre 
sendkeys"%" & "f"
senkeys "f"
Mais c vraimet tre moche et j'aimerai donc savoir s'il existe une fonction inverse de shell

Merci

Vinsus

gmni · Answer

Essais avec ca (deux boutons):
'''''''''
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private 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 lhWnd As Long
'ouvrir
Private Sub Command1_Click()
    Call Shell("programme.exe", vbNormalFocus)
    DoEvents
    lhWnd = GetForegroundWindow
End Sub
'fermer
Private Sub Command2_Click()
    Call SendMessage(lhWnd, WM_CLOSE, 0, 0)
End Sub
'''''''''''

Quitter une appli ouverte avec Shell

1 réponse

Discussions similaires