Discussion :

[gerard_lambert]

Bonjour,

Lorsque je lance un programme en mode debug (flèche play)
Le programme s’exécute normalement et la fenêtre projet reste accessible.
Il y a donc 2 fenêtres (celle de mon application et celle de vb6.exe (le code))

J'aimerais pouvoir désactiver la croix de fermeture de l'application projet (pas celle de mon application, celle de vb6 !).
Toutes les méthodes sont les bienvenues
- Configuration
- Programme externe (n'importe quel langage devrait faire l'affaire)
- Modification base de registre
- Éventuellement modification du binaire VBA6.exe (mais c'est la solution qui m'intéresserait le moins)
- ...

Je suis en VB6 et la méthode recherchée devrait au moins fonctionner sous XP (et sous les version suivante vista, seven, ce serait un plus)

Merci

[OhMonBato]

Bonjour,

juste par curiosité, je peux te demander l'intérêt de la chose ?

[gerard_lambert]

J'ai une application, déployée en mode Debug sur des postes "utilisateurs" (ne me demande pas pourquoi, c'est comme ça , je fais avec et il n'y a absolument aucune chance que je puisse y changer quelque chose dans au minimum les 2 années à venir)

Et donc pour limiter le risque que l'utilisateur ferme son VB et donc par conséquent l'application qui tourne en mode debug je voudrais supprimer cette petite croix.

Pour le moment, l'application VB est passée en mode réduit, mais parfois (et c'est ça qui est bien avec les utilisateurs , ils sont tellement prévisibles, on sait tout de suite qu'à un moment ou un autre il feront ce qu'il ne faut pas faire), donc parfois cette fenêtre n'est plus minimisée (pour diverses raisons)...

Alors je sais, désactiver la petite croix n’empêchera pas de faire Alt+F4 ou Alt+Q, seulement l'événement recurrent (ca arrive pas tous les jours quand même) c'est vraiment le click par erreur sur cette croix (souvent confusion entre plusieurs fenêtres)

[DarkVader]

Bonjour,

J'ai une application, déployée en mode Debug sur des postes "utilisateurs" .../...

Tu peux préciser
le type d'application, ce qu'elle fait ... ?

[gerard_lambert]

Tu peux préciser
le type d'application, ce qu'elle fait ... ?

Euh non, désolé, ça je ne vais pas avoir le droit.

[DarkVader]

Alors désolé,
si tu ne peux indiquer si ton application est un exécutable, une dll, un addin
comment elle interragit avec le code en cours d'exécution
ni si elle effectue des opérations d'écriture, de communication etc.
je ne vois pas comment on pourra t'aider.

Ceci dit, sur le fond, il me semble anormal de vouloir forcer les actions d'un utilisateur
comme par exemple, interdire la fermeture d'une application
(c'est du style «machine à apprendre des sous doués» si tu vois ce que je veux dire )

[omen999]

salut,
"wndclass_desked_gsk" +
étant précisé que le mot clé est le nom de classe de la fenêtre principale de l'IDE Visual Basic...
maintenant déployer une application en mode debug, franchement...

[gerard_lambert]

Alors désolé,
si tu ne peux indiquer si ton application est un exécutable, une dll, un addin
comment elle interragit avec le code en cours d'exécution
ni si elle effectue des opérations d'écriture, de communication etc.
je ne vois pas comment on pourra t'aider.

euh non là, je pense que tu n'as pas bien saisi la question (peut être mal exposée ?)
mon application c'est un celle que je lance via le bouton "play" de vb6 (1ère fenêtre)
l'autre c'est le vb6 lui même (donc des interactions il y en a plein puisqu'on est en mode debug)
je ne cherche pas a modifier mon application a moi, je cherche à modifier "l'application VB6"

(c'est du style «machine à apprendre des sous doués» si tu vois ce que je veux dire )

désolé, pas du tout

[DAUDET78]

Laisser un "client" avec le système de développement VB6, c'est dangereux (il te supprime une ligne de code .... et après, bonjour le téléphone!)

De plus, je crois que c'est contraire à la licence VB6 qui est généralement que pour un seul PC

Je ne vois qu'un seul intérêt, modifier in situ le source chez le "client" .... mais après, bonjour pour sauvegarder l'historique ! Il faut être bénédictin pour gérer les évolutions.

[gerard_lambert]

Laisser un "client" avec le système de développement VB6, c'est dangereux (il te supprime une ligne de code .... et après, bonjour le téléphone!)

De plus, je crois que c'est contraire à la licence VB6 qui est généralement que pour un seul PC

Je ne vois qu'un seul intérêt, modifier in situ le source chez le "client" .... mais après, bonjour pour sauvegarder l'historique ! Il faut être bénédictin pour gérer les évolutions.

Ne t'inquiète pas pour le client et ne t'inquiète pas pour les licences.
Oui il y a un certain risque, en même temps on est face à des gens censés, il faut juste éviter les erreur de manip.
Pour l'intérêt, un peu d'imagination que diable !

"wndclass_desked_gsk"

Merci por l'info, je vais regarder

[gerard_lambert]

La solution

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&

Private Sub Form_Load()

Dim hMenu As Long
Dim nCount As Long
lngHandle = FindWindow("wndclass_desked_gsk", vbNullString)
hMenu = GetSystemMenu(lngHandle, 0)

nCount = GetMenuItemCount(hMenu)

Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 3, MF_REMOVE Or MF_BYPOSITION)

DrawMenuBar lngHandle

End Sub

et merci pour votre aide.

[omen999]

hé bien voilà

un petit et ce sera parfait