Discussion :

[frenchsting]

Bonjour,

Je suis en train de sécher sur la désactivation d'une option de menu d'une appli que j'essaye de piloter. Le but est d'empêcher l'utilisateur de quitter cette appli.

Etape 1 : Récupérer le handle de l'appli par son nom. OK
Etape 2 : Désactiver la croix de fermeture (cela fonctionne grâce à un code de Jurassic Pork, merci à lui )
Etape 3 : Essayer de désactiver un item du menu. Pas d'erreur d'éxécution mais code inopérant.
Etape 4 : Rechercher le mot "Quitter" dans le menu. Là, plantage...

Code Etape 3 : On récupère le menu, le sous-menu et l'item du menu. Ensuite désactivation... Code inopérant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
hWnd = SysFenHandle("Calculatrice")
nMenu est entier sans signe
nSousMenu est entier sans signe
nIdItemSousMenu est entier sans signe
lpString est une chaîne

nMenu = API("USER32","GetMenu",hWnd)
nSousMenu = API("USER32","GetSubMenu",nMenu,0) // 1° sous menu
nIdItemSousMenu = API("USER32","GetMenuItemID",nSousMenu,1)// 2° item du sous menu

RetourFonction=API("USER32","EnableMenuItem",nIdItemSousMenu,0xF060,0x0011)

Code Etape 4: Suite du code précédent. lpSting doit récupérer la chaine de l'item spécifié, 10 est la taille de la chaine, et 0x0000 est censée être l'option qui va bien (là, je n'ai pas tout compris, je crois)...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetourFonction=API("USER32","GetMenuStringA",nSousMenu,nIdItemSousMenu,&lpString,10,0x0000)

Si quelqu'un a des pistes, merci d'avance...

[gancau]

Bonjour
Qu'appelles-tu code inopérant ?
Quel plantage as-tu ?
Tu ne récupères rien du tout dans ton code étape 3 ?

Gancau

[frenchsting]

J'avais oublié de mettre la ligne qui est censée griser, l'item 2 du premier sous menu (en rouge dans mon message précédent).

Les handles des menu/sous-menu/item sont bien valorisés.
La ligne de l'appel à l'api EnableMenuItem s'exécute (retour = vrai) mais l'item correspondant n'est pas grisé.

Pour l'étape 4, j'ai un beau message d'erreur : mécanisme de sécurité du wlangage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Erreur à la ligne 49 du traitement...
Vous avez appelé la fonction API.
Une erreur système inattendue est survenue.
Si cet incident...

[frenchsting]

J'ai trouvé la raison de plantage : La chaine doit être de taille fixe.
Ca fonctionne !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
LpString est une chaîne fixe sur 15
RetourFonction=API("USER32","GetMenuStringA",nSousMenu,nIdItemSousMenu,lpString,10,0x0000)

lpstring est une chaine qui vaut C&oller<TAB>Ctrl+V<0>.

A partir de là, par une boucle, je vais pouvoir retrouver "Quitter" dans le menu.

Il ne me reste plus que l'étape 3 à faire fonctionner. Je vais revérifier les types...

[frenchsting]

L'étape 3 fonctionne... sans fonctionner...
Je m'explique :
Lorsque je lance une première fois ma procédure, il me renvoie 0, ce qui est l'état initial de mon item de menu.
Lorsque je lance une deuxième fois ma procédure, il me renvoie 3, ce qui est l'état dans lequel est mon item puisque je viens de le modifier.
Le seul truc, c'est que mon item est toujours actif et non grisé...

[frenchsting]

Je n'ai pas trouvé la solution que je souhaitais, alors j'en ai utilisé une autre : je supprime les items de menu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetourFonction = API("USER32","RemoveMenu",HandleSousMenu,PositionItem,0x0400)

Je passe en résolu...

[wimbish]

Re Bonjour Claude,

Je comprend ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetourFonction = API("USER32","RemoveMenu",HandleSousMenu,PositionItem,0x0400)

cela correspond a : MF_BYPOSITION 0x00000400L

En revanche je ne comprend pas ces valeurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetourFonction=API("USER32","EnableMenuItem",nIdItemSousMenu,0xF060,0x0011)

ne devrait tu pas avoir :

MF_BYPOSITION
0x00000400L
Indicates that uIDEnableItem gives the zero-based relative position of the menu item.
MF_DISABLED
0x00000002L
Indicates that the menu item is disabled, but not grayed, so it cannot be selected.

voir ici : http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx


[EDIT]
Grosse fatigue !!
Laisses tomber, Wimbish dit que des conneries aujourd'hui.

[frenchsting]

Tu as raison : j'ai écrit une connerie (moi aussi j'en fait des belles ).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetourFonction=API("USER32","EnableMenuItem",nIdItemSousMenu,0xF060,0x0003)

Le 0xF060 correspond à la croix de la fenêtre, on n'est pas en position (MF_BYPOSITION = 0x400) mais en identification directe -> MF_BYCOMMAND (valeur 0x0000).

Par contre, J'ai un MF_GRAYED (0x0001) ou binaire MF_DISABLED (0x0002).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MF_BYCOMMAND | MF_GRAYED | MF_DISABLED = 0x0003
et pas 0x0011 (même si le comportement est le même car grisé)