[Денис]

Я устанавливаю на кнопку Пуск картинку но при наведении на неё мышью она опять становица прежней!
Вот мой код что тута нужно поменять?

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); begin BitBlt(DC, 0, 0, R.Right - R.Left, R.Bottom - R.Top, image1.Canvas.Handle, 0, 0, SRCCOPY); end;    procedure TForm1.FormCreate(Sender: TObject); begin HW := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil); GetWindowRect(HW, R); DC := GetWindowDC(HW); end;

[4kusNick]

Можешь по таймеру обновлять пробовать или при входе (выходе, перемещении) мыши в (по) область (ти) кнопки...

[Денис]

а нельзя как нить не делая это действие многа раз? может где в реестре мона изменить адрес картинки или что-нить в этом роде?