ani куросор из ресурса

← →
beatles_bntu © (2004-09-11 11:01) [0]

LoadImage-?. Помогите пожалуйста загрузить анимированный курсор из ресурса при загрузке из файла всё ОК а вот из ресурса не получается наверно что то в параметрах неправильно указываю. Киньте примерчик если не лень.

← →
beatles_bntu © (2004-09-14 21:02) [1]

Что и незнает некто
Неверю

← →
Fay © (2004-09-14 23:45) [2]

LoadCursor. Только борландовый компилятор ani жрать не станет (у меня никогда не жрёт, сволочь) - надо от MS (к примеру).

P.S.
Давай код, который не работает.

← →
beatles_bntu © (2004-09-15 00:11) [3]

Ну вот так я гружу с дискового пространства
procedure TForm1.Button1Click(Sender: TObject);
var
h:THandle;
begin
h:=LoadImage(0,"C:\1.ani",IMAGE_CURSOR,0,0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
Screen.Cursors[1]:=h;
Form1.Cursor:=1;
end;

← →
Fay © (2004-09-15 03:59) [4]

Этот код не работает?!

← →
Fay © (2004-09-15 04:03) [5]

Пихаешь в ресурс как CURSOR (странно, да), получаеешь LoadCursor.
Дальше ты знаешь.

З.Ы.
Про LoadImage сам придумал, или добрые люди подсказали? 8)

Так... Про LoadImage я погорячился 8)
Можешь сделать так
h := LoadImage(MainInstance, "Ресурс 8)", IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE);

НЕ-РА-БО-ТА-ЕТ
h:=LoadImage(MainInstance,"ARJ6",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE);
и так тоже
hResource:=LoadResource(hInstance,FindResource(hInstance,"ARJ6","ANIFILE"));
h:=LoadImage(hResource,"ARJ6",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE);

ani куросор из ресурса Найти похожие ветки