Bir iki fonksiyon buldum;
Kod: Tümünü seç
function InjectMemory(title: string; wheretowrite: Pointer; whattowrite: PChar; size: integer): integer;
var
c: cardinal;
write: cardinal;
begin
c := FindWindow(nil,PChar(title));
if (c = 0) then begin
result := 1;
exit;
end;
GetWindowThreadProcessId(c, @c);
c := OpenProcess(PROCESS_ALL_ACCESS, False, c);
WriteProcessMemory(c,wheretowrite, whattowrite, size, write);
CloseHandle(c);
result := 0;
end;
Kod: Tümünü seç
InjectMemory('MineSweeper',Ptr($1002FF5),chr($90)+chr($90)+chr($90)+chr($90)+chr($90)+chr($90),6);
Teşekkürler
