unit1.pas

丁丁掛.rar台版 還是有些問題希望大家研究

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Timer1: TTimer;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Label8: TLabel;
    Label10: TLabel;
    CheckBox9: TCheckBox;
    Edit4: TEdit;
    Label9: TLabel;
    ComboBox3: TComboBox;
    Timer2: TTimer;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox7: TCheckBox;
    GroupBox1: TGroupBox;
    CheckBox8: TCheckBox;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Button3: TButton;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label7: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ProcessID: Thandle;
  ProcID: Thandle;
  byteswritten:dword;
  paddr: dword;
  mycode: integer;
  recode: integer;
  nsize:dword;
  Ghwnd,Ghwnd1: Thandle;
  Edit1: string;
  ft,ftt,xid,ta,eax,tmp1,tmp2,MID:dword;
  cha,fly: dword;
  tt: Cardinal;
  fu,f1: dword;
const
  //W2i_Base=$9286ec;
  W2i_Base=$92EA90;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
WindowName:String;
begin
  Ghwnd := FindWindow(nil, 'Element Client');
  If Ghwnd=0 then
  showmessage('тぃ