Voici comment prevenir d'utilisateur de fermer Word avec le 'X' dans le coin droit. Veillez noter qu'en utilisant le code qui suite, Word est 'gelé', il ne peut bouger, ni minimiser, ni maximiser et pour fermer il faut utiliser la commande 'sortie' (Exit).
N.B. Ne fonctionne pas avec Word 2007.
Code source :
LOCAL oWord
oword = CREATEOBJECT("word.application")
oword.visible = .t. DeclareInteger FindWindow In user32; STRING lpClassName, String lpWindowName DeclareInteger GetSystemMenu In user32 IntegerHWnd, Integer bRevert DeclareInteger RemoveMenu In user32 Integer hMenu ,Integer nPosition,Integer wFlags
#Define MF_BYPOSITION 1024 HWnd = FindWindow("OPUSApp", 0) &&"OPUSApp" est le nom de la Classe Word.
hMnu = GetSystemMenu(HWnd, 0) For I = 6 To 0 Step -1
Y = RemoveMenu(hMnu, I, MF_BYPOSITION) Next I
Commentaires
le 24/01/2005, eric leissler a écrit : Merci beaucoup Mike Comme d'habiture tu es très rapide et toujours à notre écoute. Merci Eric
le 17/09/2009, FoxInCloud (Th. Nivelet) a écrit : Bonjour Mike Comment rétablir la croix ? Merci
Retour à la liste
Canada
Fiche personnelle
Note des membres
le 17/09/2009,
Merci beaucoup Mike
Comme d'habiture tu es très rapide et toujours à notre écoute.
Merci
Eric