; Renommer le menu démarrer

; Voila un code permettant de changer le texte dans la barre de tâches
;  et d'appliquer quelques petits effets amusants :
Procedure SetDemarrer(newtexte$, state)
  c$ = ""
  OpenLibrary(0, "user32.dll")
  handle.l = CallFunction(0, "FindWindowA", "Shell_TrayWnd", "")
  handle2.l = CallFunction(0, "GetWindow", handle, 5)
  CallFunction(0, "GetClassNameA", handle2, @c$, 100)
  If c$ = "Button"
  CallFunction(0, "SetWindowTextA", handle2, newtexte$)
  ShowWindow_(handle2, state)
  EndIf
  handle3.l = CallFunction(0, "GetWindow", handle2, 2)
  CallFunction(0, "GetClassNameA", handle3, @c$, 100)
  If c$ = "Button"
  CallFunction(0, "SetWindowTextA", handle3, newtexte$)
  ShowWindow_(handle3, state)
  EndIf
  handle4.l = CallFunction(0, "GetWindow", handle3, 2)
  CallFunction(0, "GetClassNameA", handle4, @c$, 100)
  ShowWindow_(handle4, state)
  If c$ = "Button"
  CallFunction(0, "SetWindowTextA", handle4, newtexte$)
  EndIf
  CloseLibrary(0)
EndProcedure

SetDemarrer("Awear", 1)



; A noter la possibilité de cacher le systray, la partie centrale de la barre de tache ou de supprimer le bouton demarrer et de désactiver la touche raccourci de windows respectivement :
; en utilisant "ReBarWindow32" pour la partie centrale
; en utilisant "TrayNotifyWnd" pour le systray
; et envoyant le message WM_CLOSE au boutton démarrer