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

解决方案 »

  1.   

    刚才我说的可能有点问题,如果不能成功的话,你可以在试一下下面这段代码:
    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;
      

  2.   

    好像是ico,ani,cur文件可以,bmp文件好像不行,我刚才试过了,你再试一下!
      

  3.   

    首先要将bmp文件转成ico文件即可
      

  4.   

    可以保存成cur文件,但是取不出来。
      

  5.   

    ico文件大小一般是16X16,32X32,你在转换图片格式过程中可以用bitblt函数转换原始图片指定位置的图片,这样就不存在大小限制的 问题了