Cheat Engine 的使用一

Cheat Engine 能做什么？修改游戏的数值，就象《金山游侠V》，但它能胜任动态地址的查找；制作游戏专用的修改器，补丁，你可以将制作好的补丁发布出去，让大家共享你的乐趣；当然，Cheat Engine 还能更多的事情，比如，制作网游外挂，软件反汇编等等，具体的介绍大家可以百度一下。

下面我们将编写一些程序，结合实例，让大家更好的了解CE(简称)的使用方法，让大家一步步的成为游戏作敝高手！

我们先用Delphi编一段小程序，建立一个新工程，在Form中放两个button,再放置一个Label,源码如下：

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    i:integer;    //设置一个变量
public

end;

var
Form1: TForm1;

implementation

{$R *.dfm}
//变量的初始值为100
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=100;
self.Label1.Caption := inttostr(i);
end;
//改变变量的值,每次减少10以内的一个随机数
procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
begin
randomize;
r:=random(10);
i:=i-r;
self.Label1.Caption := inttostr(i);
end;
//显示变量值，用于CE修改变量在内存中的值后，能够在Form中查看
procedure TForm1.Button2Click(Sender: TObject);
begin
self.Label1.Caption := inttostr(i);
end;