Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
кнопка Пуск Найти похожие ветки
← →
Настенька (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]вы знаете, на том сайте я ничего не нашла, может напишите готовый код. буду очень благодарна. заранее спасибо
Страницы: 1 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
