Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FERMETURE APPLICATION


Information sur la source

Description

Cliquez pour voir la capture en taille normale

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_CLOSE = &H10

Private Sub Form_Load()

    Dim hWnd As Long

    hWnd = FindWindow(vbNullString, "Mon Programme")
'Mettre exactement le nom du programme tel qu'il est notté quand CTRL-ALT-SUP
        Call PostMessage(hWnd, WM_CLOSE, 0, 0)

End Sub
 

Commentaires et avis

signaler à un administrateur
Commentaire de SkyRocKo le 20/10/2003 21:37:43

Chez moi ça marche impec !

Dommage que ça ne gère pas les processus.

Bonne prog ! 08/10

signaler à un administrateur
Commentaire de UKR6900 le 24/06/2006 12:50:45

Correction pour que ça marche avec VB6 + exemple de code un peu plus explicite(voir ci-dessous avec Notepad).
Corrections:
Inversion dans l'API FindWindow entre lpClassName et
lpWindowName dans ton code (ça ne peut pas marcher) +
déclaration du handle changer le nom et emplacement
A+

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_CLOSE = &H10
Private lHandle As Long

Private Sub Command1_Click()
  lHandle = FindWindow("Notepad", vbNullString)
'Mettre exactement le nom du programme tel qu'il est notté quand CTRL-ALT-SUP
  Call PostMessage(lHandle, WM_CLOSE, 0, 0)
End Sub

Private Sub Form_Load()
  Shell "notepad", vbNormalFocus
End Sub

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,281 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.