Interdire le Déplacement d’une fenêtre

Voici un petit bout de code qui pourrait vous servir pour interdire tout déplacement d’une fenêtre.

entBooge est un entier = 0×0216

strDimention est une structure
entX est un entier
entY est un entier
entLargeur est un entier
entHauteur est un entier
FIN

strMaDimention est une strDimention
chaNomFenetre est une chaîne = FenEnExécution()

strMaDimention:entX={chaNomFenetre,indFenêtre}..X
strMaDimention:entY={chaNomFenetre,indFenêtre}..Y
strMaDimention:entLargeur={chaNomFenetre,indFenêtre}..X+{chaNomFenetre,indFenêtre}..Largeur
strMaDimention:entHauteur={chaNomFenetre,indFenêtre}..Y+{chaNomFenetre,indFenêtre}..Hauteur

Evénement(pcdFixeFenetre,chaNomFenetre,entBooge)

PROCEDURE pcdFixeFenetre()

Transfert(_EVE.lParam,&strMaDimention,16)