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

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