2 replies to this topic

[DickaDoo]

Ok What Im trying to do is make a editbox that will accept input to change a value in "TEXT" in delphi i have read proccess memory function and writeprocess memory for buttons also have getid function and have the addresses and the editbox needs to be hooked with more than one address each letter has a different address how might i use a editbox to change this?

[Tsongkie]

procedure WriteText(offset : cardinal; text : String);

var

   processId     : Cardinal;

   processHandle : Cardinal;

   bytesWritten  : Cardinal;

begin

     processId:= 0;

     GetWindowThreadProcessId(FindWindow(nil, pchar(CurrentProcess)), processId);



     if (processId <> 0) then

     begin

          ProcessHandle:= OpenProcess(PROCESS_ALL_ACCESS, false, processId);

          WriteProcessMemory(processHandle, ptr(offset), pchar(text), Length(text) + 1, bytesWritten);

          CloseHandle (processHandle);

     end;

end;

[Mr.A]

procedure WriteText(offset : cardinal; text : String);
var
   processId     : Cardinal;
   processHandle : Cardinal;
   bytesWritten  : Cardinal;
begin
     processId:= 0;
     GetWindowThreadProcessId(FindWindow(nil, pchar(CurrentProcess)), processId);

     if (processId <> 0) then
     begin
          ProcessHandle:= OpenProcess(PROCESS_ALL_ACCESS, false, processId);
          WriteProcessMemory(processHandle, ptr(offset), pchar(text), Length(text) + 1, bytesWritten);
          CloseHandle (processHandle);
     end;
end;

To DickaDoo:
Dont forget to set the CurrentProcess var (its a string by the way) in the code posted above .