procedure TForm1.Button1Click(Sender: TObject);
var
h : Thandle;
s,c : hwnd;
begin
h := findwindow(pchar('shell_TrayWnd'),nil);
s := getwindow(h,Gw_child);
setwindowtext(s,pchar('你好!哈'));
end;
改变不了他的文字
请大虾帮帮忙
...全文
4711打赏收藏
改变桌面的开始菜单的文字
procedure TForm1.Button1Click(Sender: TObject); var h : Thandle; s,c : hwnd; begin h := findwindow(pchar('shell_TrayWnd'),nil); s := getwindow(h,Gw_child); setwindowtext(s,pchar('你好!哈')); end; 改变不了他的文字 请大虾帮帮忙