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

Изменение значка кнопки Пуск

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

Показывается, как изменить изображение на кнопке Пуск (Start) 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;

 

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


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