Анимационный курсор

[Bat{CMD}_Men]

А можно анимационный курсор загрузить из ресурса? Если можно то как?

[Kotofff]

1) Способ из файла :

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
begin
  h := LoadImage(0, 'C:\MyCursors\AniCur.ani',IMAGE_CURSOR,0,0,   LR_DEFAULTSIZE or LR_LOADFROMFILE);
  if h = 0 then ShowMessage(' Не получилось загрузить !!! ')
    else begin
    Screen.Cursors[1] := h; // прописали в системе
    Form1.Cursor := 1; // присвоили нашей программе
  end;
end;

2) Способ из ресурса :
2.1) Создаешь файл в любом редакторе cur.rc с содержимым: MYCUR 21 "mycursor.ani"
2.2) Компилишь его с помощью brcc32 и получаешь cur.res
2.3) Используешь :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[1] := LoadCursor(HInstance, pChar('MYCUR'));
  Form1.Cursor := 1;
end;