- 游戏资料
- 周杰伦所有专辑和单曲 6月前
- android-killer 最新的1.30+ 视频教程 2023-12-23
- 战神临时属性人物 英雄各种属性提升脚本代码 2021-10-25
- 怎样免费获得黑神话悟空详细教程 7月前
- 战神引擎
- V8
- lua
- 传奇
- 脚本
- 安卓
- Linux
- 天花板
- 冰雪
- 手工端
- 手游
- 数据库
- 系统
- unity
- 666
- 游戏
- 传奇3
- 单机
- zircon
- 176
- 复古
- 野径云俱黑赶快
- 群服
- CentOS
- 特色
- 存档
- 破解版
- 问题
- 盘古
- 白猪
- 离线版
- 话题
- 图片
- 格式
- 沉默
- 光芒引擎
- 说明书
- 富士康
- iPhone
- 君临
- 阅读
- 小说
- 水晶传奇
- Controller
- 代码
- TeamViewer
- 向日葵
- 新春
- 真三国
- sql
- 攻略
- 雷神
- Gee
- 情怀
- 魔兽
- 单机传奇
- 酷狗
- 下载
- 探秘
- 3proxy
- 登录
- sxg
- 丛林肉搏
- 原神
- 第一版
- 苹果
- XO引擎
- socks5
- 硬盘
- 检测
- 翻墙
- 黑神话
- 黑神话悟空
- 热血传奇
- 客户端
916
1
0
返回
GOD引擎备份资料
夜
发布于 2023-6-18

procedure TFrmMain.Timer1Timer(Sender: TObject); var I: Integer; nRow: LongWord; GateInfo: pTGateInfo; nCode: Byte; tTimeCount: Currency; Msg: string; pmc: PROCESS_MEMORY_COUNTERS_EX; begin if boTimer1TimerBusy then Exit; boTimer1TimerBusy:= True; nCode:= 0; try g_boLogIt := FileExists('../开关/LogIt.txt'); g_boMonNoMove := FileExists('../开关/MonNoMove.txt'); g_boNoDmg := FileExists('../开关/NoDmg.txt'); g_boAllGM := FileExists('../开关/AllGM.txt'); g_boLogTime := True;//FileExists('../开关/消耗时间日志.txt'); g_boKeepMapItem := FileExists('../开关/掉落不消失.txt'); SendGameCenterMsg(SG_FORMHANDLE, IntToStr(Self.Handle)); try if Assigned(g_GateSocket) and (g_GateSocket.Active = False) then begin g_GateSocket.Active := True; //打开网关端口 MainOutMessage(Format('{日志} 游戏网关端口(%s:%d)打开成功', [g_GateSocket.Address, g_GateSocket.Port])); end; except on E: Exception do begin MainOutMessage(Format('{异常} 游戏网关端口(%s:%d)打开失败', [g_GateSocket.Address, g_GateSocket.Port])); end; end; Try ShowMainLogMsg(); nCode:= 17; nRow := ((GetNowTickCount() - g_dwStartTick).val) div 1000; LbRunTime.Caption := '[引擎:' + IntToStr(nRow div 3600) + ':' + IntToStr((nRow div 60) mod 60) + ':' + IntToStr(nRow mod 60) + '秒]'{ + sCaption}; LbUserCount.Caption := '[刷怪:' + IntToStr(UserEngine.MonsterCount) + ']'; MemStatus.Caption := '[在线人数:' + IntToStr(UserEngine.OnlinePlayObject) + '/挂机人数' + IntToStr(UserEngine.AutoAddExpPlayCount) + '/加载总数' + IntToStr(UserEngine.LoadPlayCount) + '/释放总数' + IntToStr(UserEngine.m_PlayObjectFreeList.Count) + ']'; nCode:= 18; if GetProcessMemoryInfo(GetCurrentProcess(), @pmc, SizeOf(pmc)) then begin end; Label1.Caption := Format('处理:%d/%d 传输:%d/%d 角色:%d/%d 内存:%f MB', [g_nRunTimeMin, g_nRunTimeMax, g_nSockCountMin, g_nSockCountMax, g_nUsrTimeMin, g_nUsrTimeMax,(pmc.WorkingSetSize / (1024 * 1024))]);
uses Windows, Messages, SysUtils, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, IniFiles, GSShare, Grobal, Grobal2, SDK, HUtil32, RunSock, Envir, ItmUnit, Magic, NoticeM, Guild, Event, Castle, FrnEngn, UsrEngn, Mudutil, Menus, ComCtrls, Grids, Common, Classes, JSocket, ExtCtrls, Winapi.PsApi, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdGlobal, VMProtectSDK, System.Generics.Collections;
随便看看
最新回复 (0)
版块热门