Fermer une application
Publié : mar. 30/mai/2006 14:35
Je me demandais comment fermer une application (comme internet explorer par exemple !) depuis un code PB ?
Avec les APIs, cherche dans killprocess ou un truc dans le genre.
@+
Quelques idées :SPH a écrit :Je me demandais comment fermer une application (comme internet explorer par exemple !) depuis un code PB ?
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 4
;
; Explication du programme :
; Ce code permet de fermer un programme à partir du nom de la fenêtre
Procedure.l FermeProgramme(nom.s)
; nom = nom de la fenêtre en cours
; valeur de retour de la procedure :
; > 1 = OK
; > 0 = Erreur d'envoi du message d'arrêt au logiciel
; > -1 = Le logiciel n'est pas en cours d'exécution
resultat = 1
winHwnd = FindWindow_(vbNullString, nom) ; Recherche de l'identifiant de la fenêtre
If winHwnd <> 0
If PostMessage_(winHwnd, #WM_CLOSE, 0, 0) = 0 ; Envoi d'un message de fermeture à la fenêtre
resultat = 0
EndIf
Else
resultat = -1
EndIf
ProcedureReturn
EndProcedure
RunProgram("Calc.exe")
Delay(3000)
FermeProgramme("Calculatrice")