[R] Bloquer les actions de l'icône de notification

[Utilisateur 4989 supprimé]

Bonjour,
lorsque mon script s'exécute, on peut faire un double clic et un clic gauche et des actions s'effectuent.
Mais je souhaiterais que quand une certaine fonction ("Code()") s'exécute, le double clic et le clic gauche sur l'icône de notification ne marchent plus, que rien ne se passe. Et dès que la fonction s'est terminée, le double clic et le clic gauche marchent à nouveau. Comment faire ? J'ai cherché longtemps, mais je n'ai pas trouvé.

Voilà ce que j'ai fait :

► Afficher le texte

Code : Tout sélectionner

Opt("TrayMenuMode", 1)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "Double_clic")
Global $1111 = TrayCreateItem("Texte1111")
TrayItemSetOnEvent(-1, "Code1111")
Global $2222 = TrayCreateItem("Texte2222")
TrayItemSetOnEvent(-1, "Code2222")
Global $3333 = TrayCreateItem("Code")
TrayItemSetOnEvent(-1, "Code")

Func Double_clic()
       XXX
EndFunc
Func Code1111()
       XXX
EndFunc
Func Code2222()
       XXX
EndFunc
Func Code()
       XXX
EndFunc

Merci d'avance.

[mikell]

TraySetOnEvent (specialID, "function")
If the function is an empty string "" the previous user-defined is disabled.

donc

Code : Tout sélectionner

Func machin()
 TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "")  
   ; tralala
   ; tsoin
   ; tsoin
   ; ...
 TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "Double_clic")
EndFunc

[Utilisateur 4989 supprimé]

Merci, je ne pensais pas que ça serait si simple, je cherchais compliqué.
Et pour le clic gauche, comment peut-on bloquer les menus ?

[mikell]

En fait ya encore plus simple, par exemple :
TraySetClick(0) : désactive tout
TraySetClick(4) : le menu s'affiche au double-clic
TraySetClick(4+8) : le menu s'affiche au double-clic et au clic droit
etc

[Utilisateur 4989 supprimé]

Merci, ça marche nickel.
Par contre, j'ai du utiliser tes 2 codes parce qu'en utilisant que TraySetClick, si j'avais double cliqué sur l'icône pendant l'exécution de la fonction Code(), à la fin de l'exécution de Code() la fonction "Double_clic" s'exécutais.
J'ai fait ça :

Code : Tout sélectionner

Func Code()
       TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "")
       TraySetClick(0)
       XXXX
       TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "Double_clic")
       TraySetClick(8)
EndFunc

Merci beaucoup pour ton aide.
Sujet résolu.