chaos4的嫖客

2012年1月19日 #

关于指针读取人物信息的简便方法

摘要： 看到几篇文章，作者是在Delphi中嵌入汇编来读取一些资料，今天闲来无事，就拿来研究了一阵，发现虽然 可用，但却多余，根本算不上指针方式读取！这是嵌入汇编的代码：procedure MyProc; //刷新本人信息 var hp,mp,Lv,tmpName:DWORD; Name:PWideChar; begin asm mov eax,[base]; mov eax,[eax +$1c] mov eax,[eax +$28] mov ebx,[eax +$248] mov hp,ebx mov ebx,[eax +$24c] mov mp,ebx ... 阅读全文

posted @ 2012-01-19 01:41 chaos4的嫖客 阅读(187) 评论(0) 推荐(0) 编辑

ODD用法

摘要： procedure TForm1.ToolButton1Click(Sender: TObject);var down : boolean;begin toolbutton1.Tag := toolbutton1.Tag + 1; down := odd(self.ToolButton1.Tag); if down then toolbutton1.Cursor := crHandPoint //手的形状 else toolbutton1.Cursor := crArrow; //箭头形状end; 阅读全文

posted @ 2012-01-19 00:37 chaos4的嫖客 阅读(240) 评论(0) 推荐(0) 编辑

导航