一乐电子

一乐电子百科

 找回密码
 请使用微信账号登录和注册会员

QQ登录

只需一步,快速开始

快捷登录

手机号码,快捷登录

搜索
查看: 3278|回复: 6
收起左侧

非常简单的内存读写例子(delphi源代码)

[复制链接]
发表于 2011-7-21 00:02 | 显示全部楼层 |阅读模式
非常简单的内存读写例子(delphi源代码
未命名.PNG

C:\Downloads\非常简单的内存读写例子(delphi源代码)\未命名.PNG
C:\Downloads\非常简单的内存读写例子(delphi源代码)\非常简单的内存读写例子(delphi源代码).rar
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\123_z.txt
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\ListViewSave.pas
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Memory_RW_YUKI.pas
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Trainer.dpr
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Trainer.dproj
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Trainer.dproj.local
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Trainer.exe
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Trainer.identcache
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Trainer.res
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Unit1.dfm
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\Unit1.pas
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\新建 文本文档.txt
C:\Downloads\非常简单的内存读写例子(delphi源代码)\ONIMUSHA3_1.10\鬼武者3 修改器对应1.10版本.exe
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\123_z.txt
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\calc.exe
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\ListViewSave.pas
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Memory_RW_YUKI.pas
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Trainer.dpr
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Trainer.dproj
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Trainer.dproj.local
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Trainer.exe
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Trainer.identcache
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Trainer.res
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Unit1.dfm
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\Unit1.pas
C:\Downloads\非常简单的内存读写例子(delphi源代码)\计算器\新建 文本文档.txt

  1. unit Memory_RW_YUKI;

  2. // -----------------------------------------------------------------------------------------------
  3. interface
  4. // -----------------------------------------------------------------------------------------------

  5. uses Classes, SysUtils, ComCtrls, Windows, TLHelp32, psapi;
  6. function W_Memory(ProcessID: integer; MemDz: integer; s_Hex: WideString ): bool;
  7. function R_Memory_Byte(ProcessID: integer; MemDz: integer): Byte;
  8. function R_Memory_Short(ProcessID: integer; MemDz: integer): Short;
  9. function R_Memory_integer(ProcessID: integer; MemDz: integer): integer;

  10. //procedure EnableDebugPriv;
  11. function get_proc_name(pid: DWORD): WideString ; //得到进程全路径名
  12. function Get_ProcessID(WindowName: WideString ; ExeFile: WideString = ''; FhWnd: HWND = 0): integer;
  13. function Mem_Trainer_r(var Buffer: byte; Count: LongWord; Cap: WideString = ''; FileName :
  14. WideString = ''; ProcessID: integer = -1; hWnd: integer = -1; Base: integer = -1): BOOL;

  15. // -----------------------------------------------------------------------------------------------
  16. implementation

  17. //提升进程权限为DEBUG权限

  18. procedure EnableDebugPriv;
复制代码


自己编写的内存读写库,就几个函数而已
 楼主| 发表于 2011-7-21 00:05 | 显示全部楼层
本帖最后由 狗狗百里游 于 2011-7-21 00:07 编辑

代码我出售10金币做为试点...
里面有一个修改器的代码哦.临时编了一个读取【计算器】输入数字值的例子。
1.PNG

非常简单的内存读写例子(delphi源代码).rar (1.14 MB, 下载次数: 402)

为什么回复的附件不能出售?算了,这个代码不用付金币了...
 楼主| 发表于 2011-7-21 00:11 | 显示全部楼层
我自己编写自己玩的游戏,目的在于,不喜欢现成的修改器,直接把生命值锁定,自己编,简单的加一句判断语句,就可以让生命值下降到一定程度后,再自动提升回来,看起来舒服点。
发表于 2011-7-21 08:21 | 显示全部楼层
这个不会玩
发表于 2011-7-21 19:55 | 显示全部楼层
以前我都用delphi...后来有些杀毒软件死命报毒,我就放弃了delphi 重新学了C#改用Visual Studio了。。
发表于 2011-7-21 21:29 | 显示全部楼层
汗,到底是和游戏有关。。
发表于 2011-7-22 08:44 | 显示全部楼层
这个可以玩一玩

本版积分规则

QQ|一淘宝店|手机版|商店|电子DIY套件|一乐电子 ( 粤ICP备09076165号 ) 公安备案粤公网安备 44522102000183号

GMT+8, 2025-4-29 18:05 , Processed in 0.066061 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表