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

Изменение рисунка на кнопке Пуск 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;

Автор: Zarko Gajic


 

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


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