你那没图标的技能是怎么判断的?

ehf488

procedure kuaijie1;
asm
pushad
mov  eax, dword ptr [$8F04D4]
mov  eax, dword ptr [eax+$24]
mov  eax, dword ptr [eax+$8ec]
mov  eax, dword ptr [eax+$C]
mov  eax, dword ptr [eax+4*0]
mov ecx,eax
mov edx,[ecx]
mov eax,[edx+8]
call eax
popad
end;

procedure kuaijie11;
begin
InjectFunc(@kuaijie1,nil,0);
end;

procedure TfrmMain.Exec();
var
  Putong:TDateTime;
begin
  IsRunning := True ;
  Putong := Now;
  while True do
  begin
    ShowRenStat();
    if Xue <= 0 then
    begin
      Button2Click(nil);
    end;
    Application.ProcessMessages;
    if not IsRunning then break;
    if GuaiID <0 then
    begin
      if(IsLarge(Putong,5)) then
      begin
      if integer(kuaijie1) > 0  then
      begin
      kuaijie11;
      end
      else begin
      exit;
      end;
        Putong := Now;
      end;
    end;
    if GuaiID >=0 then
    ZhaoGuai;
  end;
end;



那红色的出错[Error] UMain.pas(426): Invalid typecast

蓝雨

楼主，我可是冒着被删帖的危险给您回复的，您一定要帮我求情啊