dayvid a écrit:
Tu peut toujours désactiver la fermeture de la croix crouge

C'est bien beau de me le dire.
Mais comment

.
Oublies pas mon problème se pose sous Linux.
J'ai fait ça pour un de mes prog et cela fonctionne sous Windows et Linux, mais ça reste de la bidouille :
Code:
;*********************************
;* Title : EmpecherDeQuitterEnCliquantSurLaCroix.pb
;* Author : GeoTrouvpatou
;* Date : 16/05/2010
;* Compatibility
;* Windows x86 [?] | Windows x64 [Ok]
;* Linux x86 [?] | Linux x64 [Ok]
;* MacOs PPC [?] | MacOs intel [?]
;* Demo [Ok]
;*********************************
; Empêche de fermer l'application en cliquant sur la croix tant qu'une action
; n'a pas été effectuée entièrement.
; Lors d'un transfert en cours par exemple.
; Il suffit au final de mettre le flag "action" à 0
; Dans l'exemple ci-dessous il suffit d'appuyer sur le bouton "Cliquer pour autoriser la fermeture de la fenêtre"
; pour pouvoir fermer la fenêtre.
EnableExplicit
Define.i action = 1, evenement, quit
If OpenWindow(0, 100, 200, 320, 200, "PureBasic Window", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
ButtonGadget(1, 35, 50, 250, 22, "Cliquer pour autoriser la fermeture de la fenêtre")
Repeat
evenement = WaitWindowEvent()
;->> Evènements Window
If evenement = #PB_Event_CloseWindow
If action = 1
quit = 0
Debug "quit vaut "+ Str(quit)
Else
quit = 1
Debug "quit vaut "+ Str(quit)
EndIf
EndIf
;->> Evènements Boutons (Gadget en général)
If evenement = #PB_Event_Gadget
Select EventGadget()
Case 1
action = 0
EndSelect
EndIf
Until quit = 1
EndIf