Supprimer le son emis par l' info bulle ?(Flype t'es là !)
Publié : sam. 20/oct./2007 15:26
Bonjour à tous
comme le titre de mon post le précise je voudrais savoir s'il est possible de supprimer le son emis par l'info bulle ?
Note: j'utilise la lib SYSTRAY de FLYPE
Merci d'y jeter un coup d'oeil
comme le titre de mon post le précise je voudrais savoir s'il est possible de supprimer le son emis par l'info bulle ?
Note: j'utilise la lib SYSTRAY de FLYPE
Merci d'y jeter un coup d'oeil

Code : Tout sélectionner
;Librairie nécéssaire Systray de flype
;Mon problème est les suivant: comment enlever le son émis lors de l'apparition de l'info bulle ?
Enumeration
#Window_0
#SysTrayIcon
EndEnumeration
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 380, 184, 295, 185, "Systray", #PB_Window_TitleBar|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
If CreateGadgetList(WindowID(#Window_0))
EndIf
EndIf
EndProcedure
OpenWindow_Window_0()
AddSysTrayIcon(#SysTrayIcon, WindowID(#Window_0), CatchImage(0,?Icone))
SysTrayIconBalloonEx(#SysTrayIcon,WindowID(#Window_0), "Systray","je suis là",2000, #NIIF_INFO)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver
DataSection
Icone : IncludeBinary "zip.ico"
EndDataSection