摘要：看到几篇文章，作者是在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 ... 阅读全文

摘要：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; 阅读全文

摘要：Emar2008-08-18 22:07请问Delphi指针读数组的问题varbase,NowHP,Name0:^DWORD;Name:array[0..32] of WideChar; //这里用指针知道怎么读呀？begin Base:=Pointer($0093AFBC); Base:=Pointer(Base^+$24); NowHP:=Pointer(Base^+$25C); Name0:=Pointer(Base^+$3A8); Name:=Pointer(Name0^+$0); //哎呀，不知道怎么读谁能帮帮我呀？谢谢！！！Emar2008-08-18 22:0... 阅读全文