Edit Feld

[Reditus]

Hey!

Ich bin neu in diesem Forum und habe auch noch kaum Ahnung von Delphi! Ich möchte deswegen etwas fragen!

Ich programmiere nur zum Test einen "Game - Trainer" und möchte gerne den Highscore ändern!

Das geht auch schon nur möchte ich ein Edit Fenster haben wo ich einen Wert eingeben kann den ich dann mit einem Button als eine Variable definiere!

Geht sowas?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
        Var WindowName : integer;
            ProcessId : integer;
            ThreadId : integer;
            buf : PChar;
            HandleWindow : Integer;
            write : cardinal;

   Const WindowTitle = '3D-Pinball für Windows - Space Cadet';
              Address = $C0AEBA;
              PokeValue = $F423F;
              NumberOfBytes = 4;

       


procedure TForm1.Button1Click(Sender: TObject);
begin

 WindowName := FindWindow(nil,WindowTitle);
     If WindowName = 0 then
       begin
             MessageDlg('Programm nicht gefunden!!!111oneeleven11!!11', mtwarning,[mbOK],0);
       end;

  ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

  GetMem(buf,1);
  buf^ := Chr(PokeValue);
  WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
  FreeMem(buf);
  closehandle(HandleWindow);

end;


end.

Danke im vorraus

Die Variable die ich ändern möchte ist "Address"

[dominikkv]

Zitat von Reditus:

Die Variable die ich ändern möchte ist "Address"

Die Variable ist ne Konstante und kann deshalb nicht geändert werden.

[Reditus]

Hmm ok ... und wie kann ich z.b. mit dem Edit und einem Button eine Variable definieren ? Geht sowas?

[Reditus]

... Sorry ich war vorhin total verplant
Problem gelöst