如何装入动态光标(*.ani格式)(50分)

D

dearchenzhihua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #1

[red]如何装入动态光标(*.ani格式)[/red]

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #2

http://www.ccidnet.com/tech/msrc/1999/12/03/58_36.html

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #3

将 ani 存为临时文件，使用 LoadImage 载入它。

 

D

dearchenzhihua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #4

两位小帅哥,你们说的方法我都试过了,用D7+win2K但还是没有用,按理说是可以的.可就是
不给面子.能否给你几句在你的机器上运行通过的代码!!!!!

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #5

Me+D6
procedure TForm1.Button1Click(Sender: TObject);
var
MyCursor: HIcon;
begin
MyCursor := LoadCursorFromFile('C:/Windows/Cursors/HOURGLAS.ANI');
if MyCursor<>0 then
begin
Screen.Cursors[1]:=MyCursor;
Cursor := 1;
end
else
showmessage('加载动态光标文件错误');
end;

 

D

dearchenzhihua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #6

楼上的老兄你真好...