怎樣修改windows裡的開始按鈕的位圖

　/修改
　　
　　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;