Discussion :

[gilles641]

Bonjour,
Je voulais savoir si il etait possible d empecher un utilisateur de fermer la fenetre d un programme. Comment faire pour lancer ce dernier en premier plan et pour supprimer les boutons reduire agrandir et fermer d une fenetre classique windows pr en obtenir que le contenu a l ecran
merci d avance

[dd16]

Tu peux deja modifier la proriété BordersIcons pour supprimer les icons de fermeture/reduction/agrandissement

Pour lancer en avant plan, utiliser fsStayOnTop sur le FormStyle

[gilles641]

merci bcp

[gilles641]

Est il possible de supprimer le bouton present ( enfin l onglet ) portant le nom du programme en question afin que l utilisateur ne puisse le fermer que en faisant un ctr alt suppr.
merci d avance

[sjrd]

Tu veux dire le bouton dans la barre des tâches ? Oui c'est très simple, il suffit de créer une unité NoSecretWindow (ou si tu as l'unité SjrdNoSecretWindow tu peux l'utiliser ) dont le contenu est ceci :

Code :

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

1
2
3
4
5
6
7
8
9
unit NoSecretWindow;
 
interface
 
implementation
 
initialization
  IsLibrary := True;
end.

(en hyper condensé, ça donne ça : )

Code :

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

unit NoSecretWindow;interface implementation initialization IsLibrary:=True;end.

Ca peut étonner, mais cette unité compile et est très utile !
Il suffit de l'ajouter en tête des uses de ton dpr, et tu n'auras plus le bouton dans la barre des tâches

[Reisubar]

Hum, je n'ai pas testé, mais n'est tu pas sûr que simuler que l'application est une librarie ne cause pas de "dommages collatéraux" (en particulier les clauses finally et les procédures de sorties ajoutées grâce à AddExitProc ?). La solution suivante est peut être aussi fonctionnelle, dans le même genre :

Code :

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

ShowWindow(Application.Handle, SW_HIDE);

(à tester !)

[sjrd]

Hum, je n'ai pas testé, mais n'est tu pas sûr que simuler que l'application est une librarie ne cause pas de "dommages collatéraux" (en particulier les clauses finally et les procédures de sorties ajoutées grâce à AddExitProc ?).

Mince ! Maintenant que tu m'y fait réfléchir, je me suis souvenu que cette solution n'est pas celle attendue : elle supprime le bouton uniquement lorsque la fenêtre principale est cachée ! Mais sinon le seul dommage collatéral que je connaisse est le fait que lorsque tu as plusieurs fenêtres affichées en même temps, tu obtiens plusieurs boutons (un pour chaque fenêtre). Mais comme c'est une solution prônée par Olivier Dahan (voir le livre Delphi 7 Studio), je me dis que c'est une bonne solution

La solution suivante est peut être aussi fonctionnelle, dans le même genre :

Code :

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

ShowWindow(Application.Handle, SW_HIDE);

(à tester !)

En effet, cela fonctionne, mais ce que je lui reproche c'est que le bouton apparaît pendant une fraction de seconde (voire plus si beaucoup d'applications persistentes sont lancées) avant de disparaître Mais c'est en effet la seule solution dans son cas.

[cpdump]

Pourquoi ne pas utiliser l'event CloseQuery pour empécher la fermeture ? car supprimer les menus systèmes n'empèche pas une fermeture par alt F4 ou ctrl F4.

[[Silk]]

Salut,
on ne peut pas tout simplement mettre la propriété borderStyle à bsNone ?

[gilles641]

Tout d abord merci pr vos reponses.
J ai essaye les differents codes, aucun ne marche.
G bien creer une unit a part que g inclu ds les dpr ms cela ne fait rien du tout.
Je veux que ca soit bien les boutons de la barre demarrer du genre si il s appelle client.exe, que client.exe disparaisse.
tt compil ms aucun effet....

[sjrd]

La méthode de ShowWindow devrait fonctionner. Si ce n'est pas le cas, dis-nous où tu l'as utilisée et comment.

[gilles641]

Ben en fait je l ai mis dans formcreate mais c sous doute pas la kil fo la mettre

[gilles641]

eh ben il fallait le mette ds le fromactivate.. ct l un ou l autre et g choisi le mauvais.
bonne journee