Анимированные курсоры

[mrandrey]

Кто знает как анимированный курсор засунуть в экзешник?

[ZhekON]

procedure TMain.FormCreate(Sender: TObject);
var
h1 : THandle;
begin
h1 := LoadImage(0, 'Cursors\Menu.ani', IMAGE_CURSOR,
0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
if h1 = 0 then
ShowMessage('Cursor not loaded')
else
begin
Screen.Cursors[1] := h1;
Main.Cursor := 1;
end;
end.


а для выбраного компонента просто пишеш название курсора в Сursors, в даном случае это цыфра "1"

[Аlex]

Интересно а можно его совсем скомпелировать (курсор) чтобы при запуске Exe-программы на другом компьтере не понадобился файл *.ani

[zetrix]

Загоняем в ресурс (как обычную картинку, видео или музыку - это на форуме рассматривали) прикомпиливаем, потом, когда потребуется, извлекаем и см. код ZhekON-a.

[mrandrey]

а нельзя прочитать как ресурс из программы, что бы без извлечения?

[Voland]

Так zetrix по-моему это и имел ввиду. В примере ZhekON'а поставь вместо LoadImage(...) - LoadCursor(hInstance, '<cursor name>')

[OrdJONY]

Если не понятно как пользоваться ресурсами
http://programmersforum.ru/showthread.php?t=2552

[Аlex]

Сообщение от Voland

Так zetrix по-моему это и имел ввиду..

Не, а чтобы вообще в exe файл запихать сразу, ну типа как иконку... Или хотябы в библиотеку но лучше в приложение. Можно так ?

[ZhekON]

Сообщение от Аlex

Не, а чтобы вообще в exe файл запихать сразу, ну типа как иконку... Или хотябы в библиотеку но лучше в приложение. Можно так ?

файла ресурсов не будет, потомучто он при компиляции влазит в .ехе-файл, такчто спокойно подключай картинку или иконку из ресурса