Изменить програмно вид кнопки меню Пуск (Delphi)

Изменить програмно вид кнопки меню Пуск (Delphi)

24.04.2007, 11:07

Exile1985

Участник форума

Регистрация: 10.08.2006

Сообщений: 147

С нами: 10395573

Репутация: 94

Изменить програмно вид кнопки меню Пуск (Delphi)

Привет
Люди, подскажите плиз как мона изменить програмно (с помощью Delphi) вид кнопки меню Пуск.
Нашел один способ с помощью которого это можно сделать, но он работает только под Windows 9x, вот код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StartBtnWnd:=FindWindow('Shell_TrayWnd', nil);
  StartBtnBmp:=FindWindowEx(StartBtnWnd, 0, 'Button', nil);
end;

procedure TForm1.Button1Click(Sender: TObject);
  begin
    SendMessage(StartBtnBmp, BM_SetImage, 0, Image1.Picture.Bitmap.Handle);
  end;

Большая просьба отвечать только по теме и ответы типа "ресторатор в руки" прошу оставить при себе,
не знаете - не пишите, извиняюсь за грубость просто уже достали тупыми ответами и флудом.
Заранее благадарю.

p.s. если реально поможежете обещаю +

𝕏 Twitter Reddit Telegram Копировать ссылку

Последний раз редактировалось Exile1985; 24.04.2007 в 14:25..