-burde næste få noget for det
ej her..
Var
Form1: TForm1;
WindowName : integer;
ProcessId : integer;
ThreadId : integer; // defining variable's types ;
buf : PChar;
HandleWindow : Integer;
write : cardinal ;
Const
WindowTitle = 'Minestryger'; //!define the game's window name ;
Address1 = $100579C; //!define your address to poke ;
PokeValue1 = $00; //!define what value to write ;
NumberOfBytes1 = 1; //!define amount of bytes to write;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then // check if the game is running;
begin
MessageDlg('Spillet skal være startet før du kan køre patchen. Kør spillet, og prøv igen.', mtwarning,[mbOK],0);
exit;
end;
// the following will write our value;
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(PokeValue1);
WriteProcessMemory(HandleWindow,ptr(Address1),buf,NumberOfBytes1,write);
FreeMem(buf);
closehandle(HandleWindow);
ShowMessage('Patchen er installeret :) "enjoy your game" :P');
end;
SkypeR That\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'s ME
----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E