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

来源： 作者： 出处：巧巧读书 2007-10-09 进入讨论组

• 关 键 词：
• windows
• delphi

/修改

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

/ 将代码放入FormCreate事件

procedure TForm1.FormCreate(Sender: TObject);
begin
  NewImage := TPicture.create;
  NewImage.LoadFromFile('C:WindowsCircles.BMP');
  StartButton := FindWindowEx
                 (FindWindow(
                    'Shell_TrayWnd', nil),
                     0,'Button', nil);
  OldBitmap := SendMessage(StartButton,
                           BM_SetImage, 0,
                           NewImage.Bitmap.Handle);
end;

/还原
procedure TForm1.FormDestroy(Sender: TObject);
begin
  SendMessage(StartButton,BM_SetImage,0,OldBitmap);
  NewImage.Free;
end;

for win98se/delphi 5.0通过。

【深 度 阅 读】 相 关 文 章