Vérouillage des options de fermeture système d'une fenêtre:

// Handle sur le menu système
hMenu est un entier=API("USER32","GetSystemMenu",Handle(f_main),0)
SI hMenu=0 ALORS
Erreur(ErreurInfo())
RETOUR
FIN

// Supprime l'option fermeture dans le menu & vérouille la croix en même temps
SI API("USER32","RemoveMenu",hMenu,6,MF_BYPOSITION)=0 ALORS
Erreur(ErreurInfo())
RETOUR
FIN

// Supprime le séparateur
SI API("USER32","RemoveMenu",hMenu,5,MF_BYPOSITION)=0 ALORS
Erreur(ErreurInfo())
RETOUR
FIN