Hola si queria preguntar sobre un codigo para activarlo con una tecla en delphi.Yo lo tengo asi mi duda es esta yo quiero que cuando entre al rakion, apreto tal numero y me da 9999 de oro.
me pueden decir que error tiene por q no me anda si me pasan su msn asi les pregunto por ay mejor grax.
aca el codigo:
library Modificar_Address;
uses
SysUtils,
Classes,
Windows;
{$R *.res}
const
Address1:dword=$353FE2C8;
var
d:cardinal;
Procedure Hotkey;
Begin
while (true) do
Begin
if GetAsyncKeyState(vk_f1)<>0 then
Begin
VirtualProtect(pointer($353FE2C8),80,PAGE_EXECUTE_ READWRITE,nil);
//modificando address
pdword($353FE2C8)^:=9999;
sleep(100);
end;
sleep(30);
end;
end;
begin
sleep(385);
CreateThread(nil, 0, @Hotkey, nil, 0, d);
sleep(385);
if d=0 then
MessageBox(0, 'Unable to create thread.', 'Error!', MB_OK or MB_ICONERROR) else
MessageBox(0, 'Thread sucessfully created', 'Binarys', MB_OK);
end.
PD= mi msn es
santy.m.92@hotmail.com o si no pongan sus meils y yo los agrego
