Procedure gChangeTypeFen(GardeFerme=Vrai)
// Modif des attributs d une fen fille MDI pour ne pas modifier sa taille ou la supprimer
// GardeFerme=Vrai si garde le bouton de fermeture

LOCAL
lInt est un entier

// Modification des attributs du cadre de la fenêtre
SI VersionWindows()="32" ALORS
lInt=AppelDLL32("User32", "GetWindowLongA", Handle(""), -16)
FIN
// -0x1 enlève le bouton maximise (grise sous Win95)
// -0x2 enlève le bouton iconise (grise sous Win95)
// -0x8 enlève le menu système (grise sous Win95)
// -040 enlève la barre de titre
// -0x4 enlève les bords de modification de taille
SI GardeFerme ALORS
lInt=(HiWord(lInt)-0x1)*65536+LoWord(lInt)
SINON
lInt=(HiWord(lInt)-0x1-0x8)*65536+LoWord(lInt)
FIN
SI VersionWindows()="32" ALORS
AppelDLL32("User32","SetWindowLongA",Handle(""),-16,lInt)
AppelDLL32("User32","SetWindowPos",Handle(""),0,0,0,0,0,0x27)
FIN