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

怎样修改windows里的开始按钮的位图？ (转)[@more@]

/修改

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通过。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-990416/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-990416/