Bonjour,
Voici une procedure qui pourra t'aider :
PROCEDURE AttributFen(HandleFen,iSupAtt=0,iAddAtt=0)
// Gestion des attributs d'une fenetre
// iSupAtt [in]: Attributs à supprimer
// 0x0001 Grise/Enlève le bouton maximise (grisé sous Win95)
// 0x0002 Grise/Enlève le bouton iconise (grisé sous Win95)
// 0x0004 Enlève les bords de modification de taille
// 0x0008 Grise/Enlève le menu système (les trois icones sous NT) (grisé sous win95)
// 0x0040 Enlève la barre de titre
// iAddAtt [in]: Attributs à restaurer
//
LOCAL
GWL_STYLE est un entier =-16
lInt est un entier
i2 est une entier
// Retourne les information de style de la fenêtre courante
// LONG GetWindowLong( HWND hWnd, // handle to window
// int nIndex // offset of value to retrieve
// );
SI VersionWindows()="32" ALORS
lInt=AppelDLL32("User32", "GetWindowLongA",HandleFen, GWL_STYLE)
FIN
i2=HiWord(lInt)
i2=i2-ETBinaire(i2,iSupAtt)
i2=OUBinaire(i2,iAddAtt)
lInt=i2*65536+LoWord(lInt)
// Change les attributs de style de la fenêtre
// LONG SetWindowLong(
// HWND hWnd, // handle to window
// int nIndex, // offset of value to set
// LONG dwNewLong // new value
// );
SI VersionWindows()="32" ALORS
AppelDLL32("User32","SetWindowLongA",HandleFen,GWL_STYLE,lInt)
AppelDLL32("User32","SetWindowPos",HandleFen,0,0,0,0,0,0x27)
FIN |