|
t: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;
{将所有的服务状态声明为一个结构指针}
pTConfig = ^TConfig;
TConfig = packed record
DBServer: TDBServerConfig;
LoginSrv: TLoginSrvConfig;
M2Server: TM2ServerConfig;
LogServer: TLogServerConfig;
RunGate: TRunGateConfig;
SelGate: TSelGateConfig;
LoginGate: TLoginGateConfig;
PlugTop: TPlugTopConfig;
end;
procedure LoadConfig(); //加载启动设置
procedure SaveConfig(); //保存启动设置
{下边2个是启动和停止每个服务的函数}
function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
function StopProgram(var ProgramInfo: TProgram; dwWaitTime: LongWord): Integer;
{发送每个服务当前状态的消息处理过程}
procedure SendProgramMsg(DesForm: THandle; wIdent: Word; sSendMsg: string);
先将学习过的温习一下,然后再将服务器的状态处理连贯做一下记录.
|