怎樣修改windows裡的開始按鈕的點陣圖？ (轉)

怎樣修改windows裡的開始按鈕的點陣圖？ (轉)[@more@]

/修改

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

/ 將程式碼放入FormCreate事件

procedure TForm1.FormCreate(Sender: T);
begin
 NewImage := TPicture.create;
 NewImage.LoadFromFile('C:Circles.BMP');
 StartButton := FindWindowEx
  (FindWindow(
 '_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 se/ 5.0透過。