Hogyan változtassuk meg a Windows Start gomb feliratát?

Unod már a Windows Start menüjének feliratát? Ha van jobb ötleted, nincs más dolgod mint kézbe venni egy Delphit vagy Lazarust és már le is cserélheted. Valahogy így:

procedure ChangeStartButtonText(Text: String);

var sbHwnd: hWnd;

begin

  sbHwnd:=GetWindow(FindWindow('Shell_TrayWnd',nil),GW_CHILD or GW_HWNDFIRST);

  SetWindowText(sbHwnd,PChar(Text));

  SendMessage(sbHwnd,WM_SETFOCUS,0,0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ChangeStartButtonText('Uccu');

end;