ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment enlever l'accès au 'X' de Word   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Word

Comment enlever l'accès au 'X' de Word
# 0000000138
ajouté le 24/01/2005 03:12:02 et modifié le 17/09/2009
consulté 4703 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0

Description

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.
Declare Integer FindWindow In user32;
 STRING lpClassName, String lpWindowName
Declare Integer GetSystemMenu In user32 Integer HWndInteger bRevert
Declare Integer 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


Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3