Карта сайтаСсылкиКонтакты

Изменение изображения кнопки Пуск Windows

PDF Печать
Статьи

В этой статье приводится пример, как изменить изображение на кнопке Пуск Windows.


{ Несколько глобальных переменных }
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;

 

Добавить комментарий


Защитный код
Обновить