Assuming I don't speak german very well (to be honest just a little bit) I've seen you are looking for a trainer's source code in Delphi.
Maybe you can try this stand alone here i'm using ProcessInfo 1.3 and I don't have Rad installed so I cannot test this code out for you
Api Used is WriteProcessMemory you can check it out on msdn
BOOL WINAPI WriteProcessMemory(
__in HANDLE hProcess,
__in LPVOID lpBaseAddress,
__in LPCVOID lpBuffer,
__in SIZE_T nSize,
__out SIZE_T *lpNumberOfBytesWritten
);
------------------------------------------------------Source starts here
var
ProcessInfo : TProcessInfo;
Process : TProcessItem;
PID: Cardinal;
ProcessHandle : THandle;
ThreadId : integer;
buffer : PChar;
write : cardinal; // it is the fifth parameter of
//WriteProcessMemory A pointer to a variable that receives the number of
//bytes transferred into the specified process.
//This parameter is optional. If lpNumberOfBytesWritten is NULL,the
//parameter is ignored.
Const
William = 'William is cool obviously! :P'
Address = $1A3D33E; // [the address] A pointer to the base address in //the specified process to which data is written
Value = $32; // the value you need to set
NumberOfBytes = 1; // the number of bytes to be written to the process
//# (Put the following code inside a command button routine)#
begin
ProcessInfo := TProcessInfo.Create(nil);
try
Process := ProcessInfo.RunningProcesses.FindByName('the name of the process you wanna hack plus the extension, E.G : calc.exe');
if Assigned(Process) then
begin
PID := Process.ProcessID;
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
if ProcessHandle > 0 then
try
GetMem(buf,1);
buffer^ := Chr(Value);
WriteProcessMemory(ProcessHandle,ptr(Address),buff er,NumberOfBytes,write;
FreeMem(buf);
closehandle(ProcessHandle);
finally
CloseHandle(ProcessHandle);
end;
end;
finally
ProcessInfo.Free;
ShowMessage(William);
end;
end;
--------------------------------------------------------End Source it should work
if you change your mind and you prefer develop a trainer in c# or c++ I'm here :p
William