procedure TfrmMain.ButtonStartGameClick(Sender: TObject);
begin
  SetWindowPos(Self.Handle, Self.Handle, Self.Left, Self.Top, Self.Width, Self.Height, $40);
  case m_nStartStatus of
    0:
      begin
        if Application.MessageBox('是否确认启动游戏服务器 ?', '确认信息', MB_YESNO + MB_ICONQUESTION) = mrYes then
        begin
          StartGame();  //调用启动过程
        end;
      end;
    1:
      begin
        if Application.MessageBox('是否确认中止启动游戏服务器 ?', '确认信息', MB_YESNO + MB_ICONQUESTION) = mrYes then
        begin
          TimerStartGame.Enabled := False;  //终止启动计时器
          m_nStartStatus := 2;
          ButtonStartGame.Caption := g_sButtonStopGame;
        end;
      end;
    2:
      begin
        if Application.MessageBox('是否确认停止游戏服务器 ?', '确认信息', MB_YESNO + MB_ICONQUESTION) = mrYes then
        begin
          StopGame();    //停止服务
        end;
      end;
    3:
      begin
        if Application.MessageBox('是否确认中止启动游戏服务器 ?', '确认信息', MB_YESNO + MB_ICONQUESTION) = mrYes then
        begin
          TimerStopGame.Enabled := False;    //终止停止计时器
          m_nStartStatus := 2;
          ButtonStartGame.Caption := g_sButtonStopGame;
        end;
      end;
  end;
end;

procedure TfrmMain.StartGame;
var
  I: Integer;
begin
  m_dwRunTick := GetTickCount;  //返回系统启动经历的毫秒数
  FillChar(DBServer, SizeOf(TProgram), #0); //用指定的值填充连续的字节为进程启动做准备
  //读取服务启动前的初始化状态,以下类似
  DBServer.boGetStart := g_Config.DBServer.GetStart;
  DBServer.boReStart := True;
  DBServer.sDirectory := g_sGameDirectory + 'DBServer\';
  DBServer.sProgramFile := g_Config.DBServer.ProgramFile;
  DBServer.nMainFormX := g_Config.DBServer.MainFormX;
  DBServer.nMainFormY := g_Config.DBServer.MainFormY;
  ....

  ButtonStartGame.Caption := g_sButtonStopStartGame;
  m_nStartStatus := 1;
  TimerStartGame.Enabled := True;//调用启动计时器按顺序启动所有服务
end;

procedure TfrmMain.TimerStartGameTimer(Sender: TObject);
var
  nRetCode: Integer;
  I: Integer;
  boStartRunGateOK: Boolean;
  wHour, wMin, wSec, wMSec: Word;
begin
  if DBServer.boGetStart then
  begin
    case DBServer.btStartStatus of
      0:
        begin
          nRetCode := RunProgram(DBServer, IntToStr(Self.Handle), 0);
          if nRetCode = 0 then
          begin
            DBServer.btStartStatus := 1;
            DBServer.ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, DBServer.ProcessInfo.dwProcessId);
            MainOutMessage('start DbServer:'+IntToStr(DBServer.ProcessInfo.dwProcessId));//-----------------------------
          end
          else
          begin
            DBServer.btStartStatus := 2;
          end;
          Exit;
        end;
      1:
        begin
          Exit;
        end;
    end;
  end;
  TimerStartGame.Enabled := False;//启动成功,终止启动计时器
  TimerCheckRun.Enabled := True; //打开服务监测计时器,异常的服务会被重启
  ButtonStartGame.Caption := g_sButtonStopGame;
  m_nStartStatus := 2;//标志启动状态为2(已启动)
end;

function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
var
  StartupInfo: TStartupInfo; //获取进程状态
  sCommandLine: string;      //命令行参数
  sCurDirectory: string;     //程序目录
begin
  Result := 0;//执行外部程序,失败返回0,成功返回进程句柄
  FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
  GetStartupInfo(StartupInfo);//获取进程的启动信息
  {设置命令行参数}
  sCommandLine := format('%s%s %s %d %d', [ProgramInfo.sDirectory, ProgramInfo.sProgramFile, sHandle, ProgramInfo.nMainFormX, ProgramInfo.nMainFormY]);
  sCurDirectory := ProgramInfo.sDirectory; //取得程序运行目录
  if not CreateProcess(nil,  //如果启动服务失败返回错误代码
    PChar(sCommandLine),
    nil,
    nil,
    True,
    0,
    nil,
    PChar(sCurDirectory),
    StartupInfo,
    ProgramInfo.ProcessInfo)
  then
  begin
    Result := GetLastError();
  end;
  Sleep(dwWaitTime);  //挂起
end;

procedure TfrmMain.TimerCheckRunTimer(Sender: TObject);
var
  dwExitCode: LongWord;
  nRetCode: Integer;
  I: Integer;
begin
  if DBServer.boGetStart then
  begin
    GetExitCodeProcess(DBServer.ProcessHandle, dwExitCode);
    MainOutMessage('check DbServer:'+IntToStr(DBServer.ProcessHandle));
    //如果监测到服务没有启动则重新启动程序,这里没有实现代码重用
    if (dwExitCode <> STILL_ACTIVE) or (DBServer.ProcessHandle = 0) then
    begin
      nRetCode := RunProgram(DBServer, IntToStr(Self.Handle), 0);
      if nRetCode = 0 then
      begin
        CloseHandle(DBServer.ProcessHandle);
        DBServer.ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, DBServer.ProcessInfo.dwProcessId);
        if DBServer.MainFormHandle <> 0 then
          MainOutMessage('数据库异常关闭，已被重新启动...');
        DBServer.MainFormHandle := 0;
      end;
    end;
  end;
  ...
end;