Нашел только на С++
конвертнуть в делфи не получилось... выкидывает(((
Code:
procedure MiningCall(aPParams: PParams);
var
pos,ItemSn:dword;
const
MiningCallAddress = $005DADD0;
begin
pos:=aPParams^.Param1;
ItemSn:=aPParams^.Param2;
asm
pushad
push 0
push $C01
push pos
push 0
push ItemSn
mov edx, MiningCallAddress
call edx
add esp, $14
popad
end;
end;
procedure Mining;
var
aParams : TParams;
begin
aParams.Param1 := 0;
aParams.Param2 := 3222276195;
InjectFunc(h, @MiningCall, @aParams, SizeOf(aParams));
end;
0 - это ячейка где лежит кирка. 3222276195 - это WID ресурса.
Помогите найти ошибку, пожалуйста..
Added:
Всё, вопрос снят, разобрался. Спасибо,
GrieVeR-13