可以将光标当成cursor,bmp文件你在试一下
procedure ZloadfromResourse(screenindex:integer;name:Pchar);
var td:ticon;
begin
try
td:=ticon.Create;
td.Handle:=LoadIcon(Hinstance,name);
td.SaveToFile(′temp.cur′);
screen.Cursors[screenindex]:=loadcursorfromfile(′temp.cur′);
deletefile(′temp.cur′);
finally
td.free;
end;
end;
此程序把名字为name的图标变为序号为screenindex的光标;
例:
ZloadfromResourse(2,'myicon');
Form1.cursor:=2;
procedure ZloadfromResourse(screenindex:integer;name:Pchar);
var td:ticon;
begin
try
td:=ticon.Create;
td.Handle:=LoadIcon(Hinstance,name);
td.SaveToFile(′temp.cur′);
screen.Cursors[screenindex]:=loadcursorfromfile(′temp.cur′);
deletefile(′temp.cur′);
finally
td.free;
end;
end;
此程序把名字为name的图标变为序号为screenindex的光标;
例:
ZloadfromResourse(2,'myicon');
Form1.cursor:=2;
解决方案 »
- 为什么会报错:OBJECT expected on line 1. 代码如下,能给出相应参考文件最好了!在线等,急!
- 如何使CPU的使用率保持在10%以上。
- 求红灯和绿灯的图标
- 咨询关于DELPHI进行WEB SERVICE客户端编程的问题
- 缺少个文件,帮帮忙
- 关于李维的《Delphi 5.x 分布式多层应用系统篇》中例子的问题(简单)
- 我的软件会自动退出,我们找不到合适的解决方法!请大家指导!
- TStrings
- 送分呀~~简单问题
- 关于ADO连接PARDOX数据库的问题?
- SQL语句改错
- Delphi封装的线程对象,如何同步线程,其中有我用CreateOLEObject创建的ADO对象和系统的全局变量???如何同步???
procedure TForm1.Button1Click(Sender: TObject);
var
myico:TIcon;
begin
myico:=TIcon.Create;
myico.LoadFromFile('d:\exit.ico');
myico.SaveToFile('c:\temp.cur');
Screen.Cursors[100]:=loadcursorfromfile('c:\temp.cur');
deletefile('c:\temp.cur');
myico.Free;
form1.Cursor:=100;
end;