写代码去掉延时,实现游戏加速

  //获取游戏窗口句柄  Gameh:=findwindow(nil,'对对碰角色版');
  //获取进程ID
  GetWindowThreadprocessID(Gameh,GamePid);
  //获取进程句柄
   gamehProcess:=OpenProcess(PROCESS_VM_READ or PROCESS_VM_WRITE,false,GamePid);
  //读出坐位号
   Readprocessmemory(gamehProcess, Pointer($47A318),@ChessData,200,  readByte);
   //显示 棋盘数据
     self.Memo1.Text:='';
    for y:=1 to 8 do
      begin
         s:='';
         for x:=1 to 8 do
         s:=s intTostr(ChessData[x][y]) ',';
         ///////////
       self.Memo1.Lines.Add(s);

      end;