首页
社区
课程
招聘
[求助]请问:以下代码如何用timer来控制他的执行?谢谢!
发表于: 2006-4-29 16:04 4292

[求助]请问:以下代码如何用timer来控制他的执行?谢谢!

2006-4-29 16:04
4292
procedure DoObject(idx:LongWord);
var pPlayer:pChar;
    addr:LongWord;
begin
  pPlayer := pChar(pLongWord($11EAC88)^);
  pLongWord($B0FF58)^ := idx;
  addr := $43BC10;
  asm
    mov ecx,pPlayer
    push 0
    push $78
    push 3
    call addr
  end;
end;
非常感谢您的帮助!

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (3)
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
2
在Delphi中放一个Timer控件,设置好Timer触发的时间,在Timer事件中调用该函数。
2006-4-29 16:22
0
雪    币: 190
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
请问小虾大大,能把具体代码写出来吗?您说的方法我曾经试过,但老是出错,也不知道问题出在什么地方?如果您能提供具体的代码,那就非常感谢了!
2006-4-29 17:09
0
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
4
你说的错误是什么?是DoObject执行错误还是Timer不触发?
2006-4-29 17:14
0
游客
登录 | 注册 方可回帖
返回
//