Dans le cas où une fenêtre fille doit être utilisée, cette procédure permet d'enlever les icones XP :
PROCEDURE AfficheIcone(fenetre, bReduction=Vrai,bAgrandissement=Faux, bMenu=Vrai)
HdlFen est un entier long= Handle(fenetre)
GWL_STYLE est un entier = -16
WS_MINIMIZEBOX est un entier long = 131072
WS_MAXIMIZEBOX est un entier long = 65536
WS_SYSMENU est un entier long = 524288
RDW_FRAME est un entier long = 1024
RDW_INVALIDATE est un entier long = 1
RDW_UPDATENOW est un entier long = 256
SI (bAgrandissement OU bReduction) ET PAS bMenu ALORS
Erreur("Pour afficher l'icone de réduction ou l'icone d'agrandissement,"+RC+RC+"il faut afficher le menu système !")
RETOUR
FIN
infoFen est un entier long =AppelDLL32("user32","GetWindowLongA",HdlFen,GWL_S
TYLE)
SI bReduction = 1 ALORS //--- affiche icone réduction
infoFen = OUBinaire(infoFen,WS_MINIMIZEBOX)
SINON //--- efface icone agrandissement
infoFen = ETBinaire(infoFen,NONBinaire(WS_MINIMIZEBOX))
FIN
SI bAgrandissement = 1 ALORS //--- affiche icone agrandissement
infoFen = OUBinaire(infoFen,WS_MAXIMIZEBOX)
SINON //--- efface icone agrandissement
infoFen = ETBinaire(infoFen,NONBinaire(WS_MAXIMIZEBOX))
FIN
SI bMenu = 1 ALORS //--- affiche menu systeme
infoFen = OUBinaire(infoFen,WS_SYSMENU)
SINON //--- efface menu systeme
infoFen = ETBinaire(infoFen,NONBinaire(WS_SYSMENU))
FIN
AppelDLL32("user32","SetWindowLongA",HdlFen,GWL_STYLE,infoFen)
AppelDLL32("user32","RedrawWindow",HdlFen,Null,Null,RDW_FRAME+RDW_INVALIDATE+
RDW_UPDATENOW) |