J'ai découvert un jour ton message barré alors qu'il n'était pas en double donc je me demandais pourquoi d'autant plus que j'avais donné une réponse...
Bon, je te remets la réponse que j'avais mis ici :
procedure TForm1.Button1Click(Sender: TObject);
begin
{le bouton démarrer va s'appeler "Toto"}
SetWindowText(FindWindowEx(FindWindow(pchar('Shell_TrayWnd'), PChar('')), 0, nil,PChar('démarrer')),'Toto');
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);//refresh du bureau
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{le bouton démarrer va s'appeler "Démarrer"}
SetWindowText(FindWindowEx(FindWindow(pchar('Shell_TrayWnd'), PChar('')), 0, nil,PChar('Toto')),'démarrer');
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);//refresh du bureau
end;
|
Dr Jerome JROD DorotheeJ