CHANGER LE TITRE DU MENU DÉMARRER

Information sur la source

Catégorie :Système Niveau : Débutant Date de création : 11/10/2004 Date de mise à jour : 20/10/2004 17:49:33 Vu / téléchargé: 15 334 / 1 983

Auteur : Dragonmaster

Ecrire un message privé

Note :

7,83 / 10

Commentaire sur cette source (70)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

C'est pour le fun, ça permet de changer le titre du menu démarrer. Voir screen.

Si le changement n'est pas direct, survoler le menu...

Le changement n'est pas définitif, un simple reboot (ou réecriture via le programme) permet de restaurer le titre.

Après quelques débats "acharnés" j'ai modifié la source (cf commentaires)

P.S: ne fonctionne que sous XP (peut etre NT)

Source

In the zip !

In the zip !

Conclusion

Rien à ajouter :)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Start Menu
- Form1.frm 1 955 octets
- Projet1.exe20 480 octets
- Projet1.vbp 648 octets
- Projet1.vbw 49 octets

Télécharger le zip

Historique

11 octobre 2004 17:52:21 :: Lisez la note !
11 octobre 2004 19:12:58 :: Voilà, c'est corrigé...
12 octobre 2004 19:05:19 :: Maintenant, ça doit etre nickel !
15 octobre 2004 15:44:43 :: Version finale utilisant l'API windows.
20 octobre 2004 17:49:45 :: Ajout de l'exe :)

Sources du même auteur

Toutes les sources de Dragonmaster

Sources de la même categorie

Toutes les sources de la catégorie Système

Commentaires

Commentaire de cboulas le 11/10/2004 17:57:41

Super marrant je crois que je vais bien rigoler au travail.
Commentaire de Dragonmaster le 11/10/2004 18:00:10

ça fonctionne ?
Commentaire de Dragonmaster le 11/10/2004 19:15:39

Maintenant, c'est ok !
Commentaire de MadM@tt le 11/10/2004 20:32:47

Avant de tester j'aimerais savoir si on peut remettre la valeur initiale ?
Passke j'aimerais pas tout planter ^^
et ça ne marche que sur XP par contre ?
@ +
MadMatt
Commentaire de hhhp2004 le 11/10/2004 20:34:22

jai windows me et ca marche pas pas en toute ......
Commentaire de Fraden28 le 11/10/2004 21:16:23

Bonjour Dragonmaster,
Heu, ça marche pas pour moi j'ai XP pourtant :-(.
Bizarre...
Commentaire de cboulas le 12/10/2004 09:38:44

Salut, ça marche pas chez moi non plus pourtant j'ai ausi Win Xp. j'ai killer le process Explorer puis reloader mais pas de changement.
Commentaire de The_bigboss le 12/10/2004 17:08:09

Salut, moi aussi j'ai win XP et sa marche pas !
PS : ya moyen de l'arranger pour Linux ?
Commentaire de Dragonmaster le 12/10/2004 17:36:27

MadM@tt ==> Oui, sans problème
Commentaire de Dragonmaster le 12/10/2004 17:39:50

Pour les autres, avez vous survolé le menu ?

Sinon, c'est le handle qui change, je vais m'en occupper.
Commentaire de The_bigboss le 12/10/2004 17:48:26

Bonjour Dragonmaster, je suis désolé mais chez moi ton programme pour le menu demarrer ne marche pas, es tu sur de ne pas avoir oublier quelques fichier car il n'y a que 4-5 ligne de code et pas de modules...
merci si tu trouve sinon ce n'est pas grave !
Commentaire de Dragonmaster le 12/10/2004 18:02:08

Je n'est pas voulu créer de module car il n'y a qu'une seule ligne. Oui, ces 5 lignes suffisent.

Pour le reste j'ai dis que c'est une histoire de handle, je corrige ça dès que possible !
Commentaire de Dragonmaster le 12/10/2004 19:08:34

Voilà, c'est corrigé et normalement ça doit fonctionner.
Commentaire de The_bigboss le 12/10/2004 19:18:39

C'est bon sa marche, merci.
Il est quand même super utile ton prog bien qu'il n'ai besoin que de très peut de code !
Commentaire de Dragonmaster le 12/10/2004 19:27:30

Oui, pour personnaliser windows ou pour rigoler avec qqn !
Commentaire de yoman64 le 12/10/2004 20:00:50

Tu devrais rajouter une version pour win 9x/Me
Je c que c'est fesable...
En t-k je peux pas noté je n'ai plus XP. ^^
Mais sa a l'air de fonctionner alors bravo puisque ton code est simple et efficace :P

YoMan64
PhPKoDe.Com
Commentaire de BruNews le 12/10/2004 20:04:28 administrateur CS

x = Screen.Width / Screen.TwipsPerPixelX 'Résolution horiontale
y = Screen.Height / Screen.TwipsPerPixelY 'Résolution verticale
'Gestion selon la résolution (800 x 600 ou 1024 x 768)
If x = 800 Then z = 790
If x = 1024 Then z = 1010
'Obtenir le handle
CurPos = WindowFromPoint(x - z, y - 20)

Mais qui te dit que la barre est a cet endroit ???
Tout ceci est d'une nullite affligeante.
Revois donc ta copie et utilise les APIs pour determiner le handle de la barre comme il se doit. Je pense meme qu'en fouillant dans les sources tu trouveras cela deja fait.
Commentaire de MadM@tt le 12/10/2004 22:28:57

Ok j'ai regardé ça marche.
Seulement remarques :
je suis du même avis que BruNews, la façon de récupérer le handle du menu démarrer c'est pas beau du tout (et oui la beauté existe en programmation lol) et puis c'est pas pratique. Donc ça changer d'urgence !
Je propose quelque chose :

'Pour changer le titre
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
    Dim HwndWin As Long
    'Obtenir le handle
    HwndWin = FindWindow("Shell_traywnd", "")
    'Changer le texte !
    SetWindowText HwndWin, Text1.Text
End Sub

Mais la fonction FindWindow marchait très bien chez moi jusqu'à que j'essaye ton programme, donc chez moi ça ne marche pas. Essayez et dites moi ce que ça donne.

Sinon au niveau du reste du code rien à dire c'est super simple fallait trouver, et très bonne idée d'en faire profiter tout le monde.

Ah oui tu a oublié de dire que la modification s'efface quand on éteint l'ordi.

voilà, bonne source en général
@ +
Commentaire de BruNews le 12/10/2004 22:41:26 administrateur CS

MadM@tt > le hwnd dont on doit changer le texte est fils de Shell_traywnd, faut faire:
HwndWin = FindWindow("Shell_traywnd", "")
HwndWin = GetDlgItem(HwndWin, 130)
SetWindowText HwndWin, Text1.Text

Tu devrais ainsi obtenir hwnd button.
Commentaire de cboulas le 12/10/2004 22:53:09

Bon bhà moi j'ai essayé toute vos méthodes mais rien ne marche.
BruNews > J'ai un retour d'erreur avec GetDlgItem, tu le trouve dans quelle lib ?

Merci
Commentaire de BruNews le 12/10/2004 23:05:27 administrateur CS

user32.dll pour GetDlgItem.
Si vous n'obtenez pas un handle valide ainsi, faudra passer par FindWindowEx en remplacement de GetDlgItem.
Commentaire de MadM@tt le 12/10/2004 23:06:19

Moui d'accord mais FindWindow me renvoie 0
je ne comprend pas pourquoi ??
Commentaire de BruNews le 12/10/2004 23:12:59 administrateur CS

ohhhhh, bah me reste plus qu'a essayer aussi alors.
Un peu d'attente car je fais en C.
Commentaire de BruNews le 12/10/2004 23:27:30 administrateur CS

Bon c'est OK et teste ainsi:
; ATTENTION a la casse "Shell_TrayWnd"

h = FindWindow("Shell_TrayWnd", "")
h = FindWindowEx(h, 0, "BUTTON", 0)
SetWindowText HwndWin, "YOUPI"

FindWindowEx est aussi user32.dll.
Faites un Decalre VB avec 3 params 'Long' et un String (le 3eme).
Commentaire de Dragonmaster le 13/10/2004 18:17:03

Bonjour,

Je débute et je ne savais pas qu'il était possible de récuperer le handle a partir du nom de classe
Commentaire de Dragonmaster le 13/10/2004 19:04:35

BruNews ==> MArche pas non plus !
Commentaire de MadM@tt le 13/10/2004 19:14:40

Je ne comprend pas du tout moi non plus ça ne marche pas :

HwndWin = FindWindow("Shell_TrayWnd", "")
MsgBox HwndWin

ça me renvoie 0
alors que y'a quelques temps j'utilisais ça pour cacher et montrer la barre des taches.
Commentaire de BruNews le 13/10/2004 19:15:27 administrateur CS

C'est pourtant fonctionnant sur XP et Server 2003.

J'ai mis exe et code C ici:
http://brunews.free.fr/DitStrct.zip

Vous pourrez tester si va ou non.
Commentaire de MadM@tt le 13/10/2004 19:21:56

Erratum c'est sur la ligne d'après que ça bloque, et pourtant j'ai essayé ton code en C ça marche.
j'ai les boules, pourtant j'ai bien XP :

HwndWin = FindWindow("Shell_TrayWnd", "")
HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", 0)
MsgBox HwndWin
Commentaire de BruNews le 13/10/2004 19:23:37 administrateur CS

Je m'aperçois que la taskbar raffraichit le titre de son bouton au bout de quelques minutes (XP SP2), par contre sur Server 2003 il reste a "YOUPI" comme l'a mis l'exe.
Commentaire de BruNews le 13/10/2004 19:24:46 administrateur CS

Tu as mis quoi comme Declare VB pour FindWindowEx() ?
Commentaire de MadM@tt le 13/10/2004 19:59:57

Oui moi aussi avec ton programme ça s'est rafraichit.
Sinon j'ai tout essayé, private quand la déclaration est dans la form, public dans un module, c'est toujours FindWindowEx() qui me renvoie 0 alors que FindWindow marche.

Voilà mon code :
'Pour changer le titre
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
    Dim HwndWin As Long
    'Obtenir le handle
    HwndWin = FindWindow("Shell_TrayWnd", "")
    HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", 0)
    MsgBox HwndWin
    'Changer le texte !
    SetWindowText HwndWin, Text1.Text
End Sub
Commentaire de BruNews le 13/10/2004 20:10:40 administrateur CS

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Long) As Long

As Long en dernier param pour passer 0 depuis VB.
Commentaire de MadM@tt le 13/10/2004 20:28:32

Merciiiiiiiiiiiiiiiii énormément

donc voilà Dragonmaster tu a ton code :
'Pour changer le titre
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Long) As Long

Private Sub Command1_Click()
    Dim HwndWin As Long
    'Obtenir le handle
    HwndWin = FindWindow("Shell_TrayWnd", "")
    HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", 0)
    'Changer le texte !
    SetWindowText HwndWin, Text1.Text
End Sub

et encore merci BruNews ;)
@ +
Commentaire de Dragonmaster le 15/10/2004 16:14:34

Merci à vous deux !
Commentaire de hhhp2004 le 16/10/2004 16:02:52

rien de tout ca ne marche sous win me ...
Commentaire de BruNews le 16/10/2004 16:57:18 administrateur CS

win me, c'est quoi ce truc ?
ah oui une erreur du siecle dernier...

Je plaisante bien entendu.
Commentaire de cboulas le 16/10/2004 17:05:44

Hmm, chez moi ça marche, mais dès un soft s'ouvre ou que je charge un truc, le "démarrer" reviens, mais c'est pas grave
Commentaire de Dragonmaster le 16/10/2004 17:08:48

hhhp2004 ==> je ne crois pas mentire en disant que ça été bien signalé dans la description de la source !
Commentaire de MadM@tt le 16/10/2004 17:58:35

Il faudrait faire un timer qui vérifie dès que ça change et que ça le rafraichisse, enfin après on peut le faire soit meme ça
Commentaire de Dragonmaster le 16/10/2004 18:02:35

Donc, l'appli devrait tourner en tâche de fond.
Commentaire de Dragonmaster le 16/10/2004 18:06:13

Il reste quand même la contarainte qu'il faut survoler le menu...
Commentaire de cboulas le 16/10/2004 18:08:02

C'est vrai, d'autant plus que si tu as un jeu qui tourne en plein écran le Menu Dem n'apparait pas, même s'il existe.
Commentaire de NeoZ le 16/10/2004 20:36:36

Salut, dîtes moi, comment faut-il proccéder pr compiler la source ? :p, ya pas d'exécutable et j'y connais rien en VB ... t_t Merci beaucoup xD
Commentaire de BruNews le 16/10/2004 20:46:48 administrateur CS

Ben ici c'est CodeS-SourceS et comme son nom l'indique pour les gens qui veulent se donner la peine de coder, alors te reste plus qu'a apprendre.
Commentaire de NeoZ le 16/10/2004 21:08:12

Salut, sympa ta réponse, ms je prog en C++ et j'ai pas envie d'apprendre le VB juste pr une source, même si je devrais pr ma culture, je te l'aaccorde.
Peux tu m'expliquer simplement comment compiler cette source ? merci. (Est-ce que je dois me servir de l'éditeur VB inclu ds la suite Office ou bien ... ?)
Commentaire de BruNews le 16/10/2004 21:16:44 administrateur CS

On n'y croit pas !!!
Tu coderais en C++ et tu aurais besoin de ce code VB ?
Allez va ecrire cela en C et tu auras un exe independant de tout runtime.
Commentaire de NeoZ le 16/10/2004 21:22:35

Bon, je me la refais : je code en C++ sous linux "occasionellement" et je code surtout PHP/MySQL. Ensuite, j'ai trouvé cette source en cherchant un freeware me permettant de changer le nom du menu démarrer. Donc c'est tout, j'vous demande plus rien, mais vous vous enfermez de trop ds le cercle des "programmeurs parfaits" ne laissant entrer plus aucun "newbie" avec votre humour débordant compris de vous seul. Voila j'éspère que vous réserverez des accueils plus chaleureux aux prochains visiteurs qui auront le courage (ou plutot le malheur) d'oser poser leur question.
Commentaire de cboulas le 16/10/2004 21:51:23

Je suis même pas sûr que l'on puisse faire un Exe avec la suite Office.
Bon bref, lit toute la discussion et tu vera qu'il existe un code en C, reste ensuite à le transformer en C++, ce qui ne devrais pas être trop difficile.
Commentaire de NeoZ le 16/10/2004 22:10:13

Tiens, j'ai l'impression que le Zip de notre cher BruNews a disparu, donc je ne peux pas le dl. (faute à la rancune?). Là n'est plus la question, je ne peux pas lui en vouloir de l'avoir supprimé de son ftp, "c'est à moi de le programmer en C" après tout.
PS:Vive le web pr partager ses connaissances... ;-) hahaha. t_t
Commentaire de cboulas le 16/10/2004 22:13:10

Pffffff, heuresement que je garde tout :

#define _WIN32_WINT 0x500

#include <windows.h>

char szappname[] = "DitStrct";

HWND GetStartHwnd()
{
  HWND h;
  h = FindWindow("Shell_TrayWnd", 0);
  if(h) h = FindWindowEx(h, 0, "BUTTON", 0);
startExit:
  return h;
}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE x, PSTR y, int z)
{
  HWND h;
  h = GetStartHwnd();
  if(h) SetWindowText(h, "YOUPI");
  else MessageBox(0, "ERROR", szappname, 0);
  return 0;
}
Commentaire de BruNews le 16/10/2004 22:13:21 administrateur CS

neoZ, 10 minutes je le refais et le remets.
Commentaire de BruNews le 16/10/2004 22:24:29 administrateur CS

http://brunews.free.fr/DitStrc.zip
dispo, j'ai refait en fonction parametree ainsi est pret a l'emploi.
Commentaire de BruNews le 16/10/2004 22:26:23 administrateur CS

ah ben j'ai perdu 10 minutes pour rien alors.
Merci quand meme cboulas.
Commentaire de cboulas le 16/10/2004 22:27:52

De rien, c'est une habitude pour moi de tout conserver. Tout peut servir un jour.
Commentaire de BruNews le 16/10/2004 22:38:52 administrateur CS

alors vire celui que tu as et download le new zip, c'est ecrit plus proprement. Le 1er etait fait juste pour test a la va vite.
Commentaire de cboulas le 16/10/2004 22:42:18

Ok, je le fait de suite. Merci
Commentaire de NeoZ le 17/10/2004 12:16:50

OK, merci beaucoup à vous deux. =)
Commentaire de Dragonmaster le 17/10/2004 16:36:41

Lol, ma boite mail a été bombardée... Enfin, ça fait rien.
Commentaire de trcdl le 20/10/2004 22:08:30

sa marche / winXp
code sympa 8/10
Commentaire de Saros le 22/10/2004 20:29:00

Ca marche très bien...
9/10
Commentaire de Dragonmaster le 23/10/2004 17:32:45

Un code est fait pour "marcher" !
Commentaire de MadM@tt le 23/10/2004 17:45:18

Pour ceux que ça interesse, j'ai passé ça en fonction, c'est plus pratique :

' Pour changer le texte du bouton démarrer
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Long) As Long
' Le texte de la fenêtre
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

' Renvoie le texte du bouton démarrer
Public Function GetStartButton_Caption() As String
    On Error Resume Next
    Dim HwndWin As Long
    Dim Length As Long
    Dim Name As String
    ' Obtenir le handle du bouton
    HwndWin = FindWindow("Shell_TrayWnd", "")
    HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", 0)
    ' Récupère le texte
    Length = GetWindowTextLength(HwndWin)
    Name = Space(Length + 1)
    Length = GetWindowText(HwndWin, Name, Length + 1)
    Name = Left(Name, Len(Name) - 1)
    GetStartButton_Caption = Name
End Function

' Change le texte du bouton démarrer
Public Function SetStartButton_Caption(ByVal Caption As String) As String
    On Error Resume Next
    Dim HwndWin As Long
    ' Obtenir le handle du bouton
    HwndWin = FindWindow("Shell_TrayWnd", "")
    HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", 0)
    ' Changer le texte
    SetWindowText HwndWin, Caption
End Function
Commentaire de Dragonmaster le 23/10/2004 20:48:38

Merci Mad :)
Commentaire de wolfcyber le 07/11/2004 18:47:05

Salut,
j'ai fait le meme programme au debut c t comme toi, on devai rafraichir la bouton manuellement en passant dessus, apres j'ai trouver un code, sur ce site, pour rafraichir le menu demarrer :

Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByRef lpRect As Any, ByVal bErase As Long) As Long

function Rafraichir()
' Rafraichi le bureau
InvalidateRect 0, ByVal 0, 1
end function

Mais ca n'empeche que des que tu va rafraichir le bureau plus tar (ajout d'icone dans le tray par exemple), alors le texte reviendra a "Démarrer".

Il faudrai reverifier grace a un timer, si le texte a changer, et sovegarde le texte a y remettre dans un fichier .ini
Voila @+
Commentaire de Dragonmaster le 19/12/2004 13:46:07

Merci pour tes remarques, wolfcyber, je vais en prendre compte !
Commentaire de fabienlege le 16/06/2005 19:33:42

Moi g XP et sa marche pas je change le nom je survole ça affiche ce ke je lui est dit de metre et au bout de 20 seconde sa remé démarrer
Commentaire de Dragonmaster le 16/06/2005 22:27:07

On parlait de ça la-haut: c'est a cause de l'actualisation de l'explorateur (explorer.exe)

Si tu tiens a le changer définitivement (tu peux le modifier apres), il ya un autre moyen: utiliser ResHacker avec le fichier explorer.exe
Commentaire de jojo4613 le 18/08/2008 16:04:37

c'est vraiment dommage que le nom de a barre ne reste pas plus longtemps
Commentaire de nOwK le 21/08/2008 07:09:09

Coucouuuuu!!!!

Moi je viens de faire la mise à jour window SP3, rien ne marche...

Depuis plusieurs années, je cherche une solution pour customiser le bouton démarrer, mais rien n'y fait :
Soit c'est à cause du SP2 ( Personne ne c'était penché sur le sujet pour le SP2 )
Soit maintenant, le SP2 marche, mais je suis en SP3. ( window de #@=+& ... )

L'un d'entre vous aurait une solution?

Merci beaucoup,
gros bisous :)

Ah, PS : Ton prog' me sort un truc du genre " The language 'DLL' VB6FR.DLL could not be found "

Pourquoi?

Marchiii :)