Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как изменить изображение кнопки «Пуск»?

01.01.2007

Автор: Misha Moellner

Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).

{ объявляем глобальные переменные } 
 
var
  Form1
: TForm1;
 
StartButton: hWnd;
 
OldBitmap: THandle;
 
NewImage: TPicture;
 
{ добавляем следующий код в событие формы OnCreate }
 
procedure TForm1
.FormCreate(Sender: TObject);
begin
 
NewImage := TPicture.create;
 
NewImage.LoadFromFile('C:\Windows\Circles.BMP');
 
StartButton := FindWindowEx
                 
(FindWindow(
                   
'Shell_TrayWnd', nil),
                     
0,'Button', nil);
 
OldBitmap := SendMessage(StartButton,
                           BM_SetImage
, 0,
                           
NewImage.Bitmap.Handle);
end;
 
{ Событие OnDestroy }
 
procedure TForm1
.FormDestroy(Sender: TObject);
begin
 
SendMessage(StartButton,BM_SetImage,0,OldBitmap);
 
NewImage.Free;
end;

Взято из https://forum.sources.ru