可以将光标当成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;
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;