кнопка Пуск

← →
Настенька (2004-09-15 07:41) [0]

как сменить изображение кнопки Пуск. вот мой код, но он почему-то
не работает в Windows XP Professional. что в нем не так?

описываем глобальные переменные
StartButton: hWnd;
OldBitmap: THandle;
NewImage: TPicture;

procedure TForm1.FormCreate(Sender: TObject);
begin
NewImage := TPicture.create;
NewImage.LoadFromFile("D:\Мои документы\delphi.BMP");
StartButton := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle);
end;

← →
sniknik © (2004-09-15 08:08) [1]

код который точно работает в 2000х (найдите 10 отличий ;о)))
procedure TForm1.Button1Click(Sender: TObject); var StartButton: THandle; NewImage: TPicture; begin NewImage:= TPicture.create; NewImage.LoadFromFile("delphi.BMP"); StartButton:= FindWindowEx(FindWindow("Shell_TrayWnd", nil),0,"Button", nil); SendMessage(StartButton, BM_SetImage, IMAGE_BITMAP, NewImage.Bitmap.Handle); NewImage.Free; end;
попробуй сделать также, вплоть до места вызова и отступов ;о)), должно работать (может конечно какие особенности XP мешают..., но тут х.з. и проверить пока не могу).

← →
inic © (2004-09-15 15:57) [2]

Я думаю ничего не получится, ибо кнопка в XP наверное ownerdraw, т.е. сама себя рисует и забивает на всякие там свойства, относящиеся к image или шрифтам.

← →
Александр1 (2004-09-16 03:56) [3]

> Настенька (15.09.04 07:41)
> как сменить изображение кнопки Пуск. вот мой код, но он
> почему-то
> не работает в Windows XP Professional. что в нем не так?

По моему я вроде видел пример на этом сайте по этому поводу.
http://www.delphisyte.ru

← →
Настенька (2004-09-16 17:15) [4]

спасибо буду искать

← →
Настенька (2004-09-17 10:54) [5]

вы знаете, на том сайте я ничего не нашла, может напишите готовый код. буду очень благодарна. заранее спасибо

кнопка Пуск Найти похожие ветки