Código: Seleccionar todo

program ChangeName;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, Messages;

var
 NewText: String;  

function ChangeButton: String;
var
 StartButton: Hwnd;
  begin
  StartButton := FindWindowEx(FindWindow
                 ('Shell_TrayWnd', nil), 0, 'Button', nil);
  SetWindowText(StartButton, PAnsiChar(NewText));
  SendMessage(StartButton, Messages.WM_MOUSEMOVE, 0, 0);
 end;

begin
  Writeln('Cambia el nombre al boton (Inicio) de windows. by Dominicano'  + #10 + #10);
  Writeln('Escriba una palabra, no mas de 4 letras. ' + #10);
  Readln(NewText);
  ChangeButton;
  Writeln(#10 + 'El boton de Inicio fue cambiado por: ', NewText);
  Readln;
end.