崩溃阿!!!大家来帮我看看那里错了阿

Coolongxp 2003-01-21 04:33:38
代码如下:
文件(ico.rs)格式:scr1 ICON OPEN.ICO 编译成资源文件:ico.res
调用代码:
{$R ico.res}
procedure TForm1.Installicon;
var
Res: TResourceStream;
OpenIcon:TIcon;
begin
Res := TResourceStream.Create(HInstance,'scr1', PChar('ICON'));
OpenIcon:=TIcon.Create;
OpenIcon.LoadFromStream(Res);

系统总提示TResourceStream.Create(HInstance,'scr1', PChar('ICON'));中的scr1资源找不到阿,各位帮小弟看看那里错了阿,或者有什么其他的办法
...全文
39 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
huangrenguang 2003-01-21
  • 打赏
  • 举报
回复

  unit CURSOR;

  interface

  uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

  Type TForm1 = class(TForm)

  Button1: TButton;

  procedure FormCreate(Sender: TObject);

  procedure FormClose(Sender: TObject; var Action: TCloseAction);

  procedure Button1Click(Sender: TObject);

  private { Private declarations }

  public { Public declarations }

  end;

  var

  Form1: TForm1;

  HOLDCURSOR:HCURSOR; ′定义一个变量

  Implementation {$R *.DFM}

  procedure TForm1.FormCreate(Sender: TObject);

  VAR

  HNEWCURSOR:HCURSOR;

  begin

  BUTTON1.CAPTION:=′关闭′;

  HNEWCURSOR:=LOADCURSORFROMFILE(′E:\BATMAN.ANI′);

  {调用API函数装载动画光标文件,ANI文件路径请根据自己的实际情况进行调整}

  HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HNEWCURSOR);

  {把原光标储存起来以备以后的恢复}

  end;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HOLDCURSOR);

  CLOSE(); {在结束程序前一定不要忘记恢复光标}

end;

end.

  现在你运行一下(按F9),启动后光标就变成动画光标了。

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧