我想在程序中加载一个.cur光标文件！

Question

你试试这个函数吧：  LoadCursorFromFile(Path :string);*Path代表*.ani或*.cur文件的路径.

Answer 1

to AV_15(C.C.Q.) 
我用的就LoadCursorFromFile(Path :string)这个函数
to
dext(德克斯特)怎么用啊，写段代码看看！

Answer 2

把cur的文件编译成*。reg文件，在程序中用{$ name.reg}引入

Answer 3

可以将你的光标存入资源文件icesnow.RES，key: testimplementation  {$R icesnow.RES}constructor TfrmMain.Create(AOwner: TComponent);
begin
  Screen.Cursors[100] := LoadCursor(hInstance,'test');
  Panel1.Cursor := 100;
end;

Answer 4

详细一点：
icesnow.res
test cur XXX.cur
//下面还可以加入声音等资源文件如：
//beep wav start.wav文件存为 test.rc
用delphi的brcc32.exe编译: 
  brcc32 -32 test.rc
得到test.res文件，在程序中如上文所写的引用。

Answer 5

用delphi自带的imageedit可以制作资源文件。file-.new-.8.res
做好了存为aaa.res,,,光标文件名:bbb.cur
主窗体的unit里加入{$R *.res}//在implementation中
formcreate事件中：
设置：
h:=loadcursor(hinstance,'bbb');
setsystemcursor(h,ocr_normal);
恢复：
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);