ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 怎样修改windows里的开始按钮的位图? (转)

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

原创 Linux操作系统 作者:worldblog 时间:2007-12-09 10:31:41 0 删除 编辑
怎样修改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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410375