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;

És az eredmény:

Windows XP-n működik.

Update: Akinek kedve van hozzá, le is töltheti a programot és a forráskódját is.

Hozzászólások

Jópofa, csak kár, hogy újraindítás után visszaáll az eredeti Start felirat.