Программа меняет название пуска на “Новое название”

 

 

program Project1;

 

uses  windows,

         messages;

 

{$R *.res}

var

hTaskBar, hButton:hwnd;

begin

{Нахождение панели задач}

hTaskBar:= FindWindow('Shell_TrayWnd',NiL);

{Нахождение кнопки Пуск}

hButton:= FindWindowEx(hTaskBar, 0,'Button', NiL);

SendMessage(hButton,WM_SETTEXT,0,lparam(LPCTSTR('Новое название')));

end.