Bonjour,
Est-il possible d'accéder aux boutons systèmes Windows ? Cad obtenir le handle de ces objets. J'ai essayé avec la fonction EnumChildWindows mais sans succés quelq'un a-il la soluce ?
Bonjour,
Est-il possible d'accéder aux boutons systèmes Windows ? Cad obtenir le handle de ces objets. J'ai essayé avec la fonction EnumChildWindows mais sans succés quelq'un a-il la soluce ?
à priori non car il appartiennent à des sous programmes ( explorer.exe, ... )
Je me suis peut-être mal expliqué. Ce sont les boutons qui dans une fenêtre permettent de réduire, agrandir ou fermer les applications windows.
Tu peux les supprimer (avec BorderIcons) puis en ajouter d'autres sur lesquels tu as le contrôle avec le composant TJvCaptionButton.
Encore désolé, j'ai vraiment pas été précis.
C'est à partir d'une autre application que je veux accéder à ces boutons d'où l'utilisation de la fonction EnumChildWindows.
Je sais obtenir le handle de fenêtre d'une application en précisant sa classe ou son titre.
Je peux aussi accéder aux fenêtre fille mais ce que je souhaiterais c'est d'accéder aux boutons système.
En fait c'est pour empêcher un utilisateur par exemple de fermer une fenêtre particulière.
(Inutile de vous dire que je n'ai pas les sources de l'application à contrôler)
Salut!
Dans ce cas, ce ne sont pas les contrôles que tu dois chercher à capturer, mais les messages systèmes... Parceque l'on peut aussi fermer une fenêtre avec la combinaison de touche Alt-F4... WM_QUIT par exemple, sera envoyé à une fenêtre pour la fermer. Tu dois donc bloquer le message correspondant à l'action et en utilisant aussi l'handle de cette fenêtre pour contrôler que la fenêtre soit bien le destinataire du message. Pour plus de détails, voir Faq du forum, Google, touche F1, etc... à+
Si le but est juste de désactiver le bouton de fermeture de la fenêtre, ceci devrais t'aider :
Par contre, cela n'empêche pas la fermeture par Alt+F4. Il doit y avoir un moyen mais je ne le connais pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure TForm1.Button2Click(Sender: TObject); var hMenu: THandle; begin hMenu:= GetSystemMenu(Handle, false); EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND + MF_DISABLED); end;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager