Подмена курсоров

[ProgMaster]

Здравствуйте уважаемые программисты!
Как подменить курсоры всей системы?
Надо чтобы вместо тупых некрасивых курсоров системы появлялись мои (см вложение). Как это сделать?
Помогите, ПЛИЗ.

[mihali4]

Как сменить курсор в системе

functionSetSystemCursor(hCur: HCURSOR, id:
Cardinal): LongBool;

{hCur - хэндл курсора
id - идентификатор системного курсора:
OCR_APPSTARTING - стрелка с песочными часами
OCR_NORMAL - стрелка (обычный)
OCR_CROSS - перекрёстный курсор
OCR_HAND - (Windows 2000/XP) ладошка
OCR_HELP - стрелка со знаком вопроса
OCR_IBEAM - курсор редактирования текста (I)
OCR_NO - перечёркнутый круг
OCR_SIZEALL - стрелки вверх/вниз/влево/вправо
OCR_SIZENESW - стрелки вправо-вверх/влево-вниз
OCR_SIZENS - стрелки вверх/вниз
OCR_SIZENWSE - стрелки влево-вверх/вправо-вниз
OCR_SIZEWE - стрелки влево/вправо
OCR_UP - вертикальная стрелка вниз
OCR_WAIT - песочные часы}

programFuckingCursor;
usesWindows;
vara:HCursor;
{$R MyResource.res}
begin
a:=LoadCursor(HInstance,MakeIntResource(1));
SetSystemCursor(a,Ocr_Normal);
end.

[ProgMaster]

Спасибо большое!
Сделал этот код и работает:

I:=TIcon.Create;
I.LoadFromFile(ExtractFilePath(ParamStr(0))+'Arrow.ico');
SetSystemCursor(I.Handle,OCR_NORMAL);