改变鼠标的图形(100分)

我想用一个新的鼠标来替换旧的鼠标，这个新的鼠标并不是delphi所提供的

把新的Cursor文件写入资源文件中，
然后在程序中
{$R *.Res}
使用LoadCursorFromResouce函数装入Cursor.

实际上还可以使用动画mouse:
文件格式为ANI,可以使用Micrsoft的ANIEdit生成
如只改变图形用cur文件文件代替 ani文件即可

const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Load the cursor. Needs to be done only once
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile('c:/mystuff/mycursor.ani');
// Use the cursor with this form
Cursor := crMyCursor;
end;