怎样修改windows里的开始按钮的位图？

最新推荐文章于 2025-11-13 11:56:05 发布

原创最新推荐文章于 2025-11-13 11:56:05 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #button #shell #c

delphi文档专栏收录该内容

16 篇文章

订阅专栏

博客给出了在Windows系统下修改按钮图片的代码。代码包含在FormCreate事件中加载图片并设置到按钮上，以及在FormDestroy事件中还原按钮图片的操作，且该代码在win98se和delphi 5.0环境下通过。

/修改

var
  Form1: TForm1;
  StartButton: hWnd;
  OldBitmap: THandle;
  NewImage: TPicture;

/ 将代码放入FormCreate事件

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;