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

CloseProgram("Notepad.exe")