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

Материал из DRKB

Как изменить изображение кнопки Пуск?[править | править код]

Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (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;


Source: Взято из http://forum.sources.ru
ID: 01795