请教高手：我想把winxp的开始菜单的“开始”按纽该为“我是帅哥”，怎么改？？？

Question

我用Getwindow(FindWindow(PChar('Shell_TrayWnd'),nil),GW_CHILD)可得到该按纽的窗口handle

Answer 1

ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),0);
嘻嘻：）

Answer 2

cg1120(代码最优化－§为这世界,添些美丽色彩§) ：
你只是把该按纽给隐藏了，我是想把按纽的文字给替换了，不知可有办法？
好象使用settext API函数可以，但不知怎么用》》》》

Answer 3

获取BUTTON句柄后， 用SetWindowText

Answer 4

简单：
  hwnd1:=findwindow('shell_traywnd',nil);
  hwnd1:=getwindow(hwnd1,gw_child);
  SetWindowText(hwnd1, 'LY');
  InvalidateRgn(hwnd1, 0, false);

Answer 5

sendmessage(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),wm_settext,0,integer(pchar('hehe')));

Answer 6

to lgsnake(lgsnake):
 
我用SetWindowText(Getwindow(FindWindow(PChar('Shell_TrayWnd'),nil),GW_CHILD),'我是帅哥');
但执行后什么反应都没有，请指教！！！

Answer 7

好像现实情况是没有人真正用以下这种思路实现过：
procedure TForm1.Button1Click(Sender: TObject);
var
  Handles: HWnd;
begin
  Handles:=Getwindow(FindWindow(PChar('Shell_TrayWnd'),nil),GW_CHILD);
  SetWindowText(Handles, 'ÎÒÊÇ˧¸ç');
end;

Answer 8

我的在D7+WINXP下通过！
  hwnd1:=findwindow('shell_traywnd',nil);
  hwnd1:=getwindow(hwnd1,gw_child);
  SetWindowText(hwnd1, 'LY');
  InvalidateRgn(hwnd1, 0, false);

Answer 9

to ly_liuyang(Liu Yang)
我这里好像通不过WINDOWS2000+DELPHI5

Answer 10

to cg1120(代码最优化－§为这世界,添些美丽色彩§) 
你的方法在win2k+d6不行？！

Answer 11

我的也是：win2k+delphi5,也不行啊

Answer 12

ly_liuyang(Liu Yang)
的方法正确，我试过了。

Answer 13

ly_liuyang(Liu Yang)
的办法是不是在winxp+delphi7的环境下可以，但有没有一种方法在win2k(winxp),delphi5(delphi6,delphi7)的任何组合环境下都能实现啊？？？

Answer 14

ly_liuyang(Liu Yang) 的办法在winxp+d5,d6,d7的环境下都通过了，但在win2000下好象不行

Answer 15

我在xp下用d6试了,可以通过,但是重起之后就恢复了,有没有办法,将设置保存下来啊??