怎样修改windows里的开始按钮的位图计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:29:47
来源 100Test.Com百考试题网

　　/修改
　　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通过。

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台