热血江湖最新V40004版的喊话CALL,找了好长时间也无法找到,只找到了逐字符发送的CALL,由于我是在DELPHI2010版下写的代码,所以字符串做了些转换,2010版以下就不用转换直接用了.有时间我会慢慢找其他CALL,有兴趣请到www.tansoo.cn查看

procedure TfrmMain.Button1Click(Sender: TObject);    
var   
  neirong: PAnsiChar;    
  I: Integer;    
   
  // 发送字符的CALL    
  procedure SendByte(b:Byte);    
  var   
    Address: Pointer;    
  begin   
    Address := Pointer($0043C380);    
    asm   
      pushad    
      xor   eax, eax    
      mov   al, [b]    
      mov   edi, $00020001   
      mov   esi, dword ptr [$1700910]    
      mov   ecx, esi    
      push  edi    
      push  eax    
      call  Address    
      popad    
    end;    
  end;    
begin   
  // 将Unicode字符串转换成PAnsiChar型,并在最后加个回车符    
  neirong := PAnsiChar(AnsiString(Edit3.Text)+#$0D);    
  // 逐一发送字符    
  for I := 0 to Length(neirong)-1 do   
    SendByte(Byte(neirong[i]));    
end;