Изменить изображение на кнопке ПУСК
Изменить изображение на кнопке ПУСК
Изменить изображение на кнопке ПУСК { объявляем глобальные переменные } 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;
