PureBasic

Code : Tout sélectionner

Procedure.l CloseProgram(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)
  If winHwnd <> 0
    If PostMessage_(winHwnd, #WM_CLOSE, 0, 0) = 0
      resultat = 0
    EndIf
  Else
    resultat = -1
  EndIf
  ProcedureReturn
EndProcedure

CloseProgram("Calculatrice")