游戏控制器监控服务和网关运行状态

meinvwudi

// 检查游戏服务运行状态
procedure TfrmMain.TimerCheckRunTimer(Sender: TObject);
var
  ProcessHandle: THandle;
  ProcessEntry32: TProcessEntry32;
  Snapshot: THandle;
  boFind: Boolean;
begin
  try
    // 获取系统进程快照
    Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if Snapshot = INVALID_HANDLE_VALUE then Exit;
    
    try
      // 初始化进程信息结构
      ProcessEntry32.dwSize := SizeOf(TProcessEntry32);
      
      // 开始遍历进程
      if Process32First(Snapshot, ProcessEntry32) then begin
        repeat
          // 检查数据库服务器
          if CheckBoxDBServer.Checked then begin
            boFind := CompareText(ProcessEntry32.szExeFile, 
                      ExtractFileName(EditDBServerProgram.Text)) = 0;
            if not boFind then begin
              // 数据库服务器未运行,尝试重启
              MainOutMessage('数据库服务器异常停止,正在重新启动...');
              StartProgram(EditDBServerProgram.Text, g_sGameDirectory);
            end;
          end;

          // 检查登录服务器
          if CheckBoxLoginServer.Checked then begin
            boFind := CompareText(ProcessEntry32.szExeFile,
                      ExtractFileName(EditLoginSrvProgram.Text)) = 0;
            if not boFind then begin
              MainOutMessage('登录服务器异常停止,正在重新启动...');
              StartProgram(EditLoginSrvProgram.Text, g_sGameDirectory);
            end;
          end;

          // 检查游戏主服务器
          if CheckBoxM2Server.Checked then begin
            boFind := CompareText(ProcessEntry32.szExeFile,
                      ExtractFileName(EditM2ServerProgram.Text)) = 0;
            if not boFind then begin
              MainOutMessage('游戏主服务器异常停止,正在重新启动...');
              StartProgram(EditM2ServerProgram.Text, g_sGameDirectory);
            end;
          end;

          // 检查各个网关服务
          CheckGateServices(ProcessEntry32);

        until not Process32Next(Snapshot, ProcessEntry32);
      end;

    finally
      CloseHandle(Snapshot);
    end;

  except
    on E: Exception do begin
      MainOutMessage('检查服务状态出错: ' + E.Message);
    end;
  end;
end;

// 检查网关服务状态
procedure TfrmMain.CheckGateServices(ProcessEntry32: TProcessEntry32);
var
  I: Integer;
  GateCount: Integer;
  boGateFound: Boolean;
begin
  // 检查登录网关
  if CheckBoxLoginGate.Checked then begin
    boGateFound := False;
    GateCount := 0;
    
    // 统计当前运行的登录网关数量
    if CompareText(ProcessEntry32.szExeFile,
        ExtractFileName(EditLoginGateProgram.Text)) = 0 then begin
      Inc(GateCount);
    end;
    
    // 如果运行数量少于配置数量,则启动缺少的网关
    if GateCount < g_nLoginGate_Count then begin
      for I := GateCount + 1 to g_nLoginGate_Count do begin
        MainOutMessage(Format('登录网关%d异常停止,正在重新启动...', [I]));
        StartProgram(EditLoginGateProgram.Text, g_sGameDirectory);
        if CheckBoxLoginGateSleep.Checked then
          Sleep(SpinEditLoginGateSleep.Value);
      end;
    end;
  end;

  // 检查选择网关
  if CheckBoxSelGate.Checked then begin
    boGateFound := False;
    GateCount := 0;
    
    if CompareText(ProcessEntry32.szExeFile,
        ExtractFileName(EditSelGateProgram.Text)) = 0 then begin
      Inc(GateCount);
    end;
    
    if GateCount < g_nSelGate_Count then begin
      for I := GateCount + 1 to g_nSelGate_Count do begin
        MainOutMessage(Format('选择网关%d异常停止,正在重新启动...', [I]));
        StartProgram(EditSelGateProgram.Text, g_sGameDirectory);
      end;
    end;
  end;

  // 检查运行网关
  if CheckBoxRunGate.Checked then begin
    boGateFound := False;
    GateCount := 0;
    
    if CompareText(ProcessEntry32.szExeFile,
        ExtractFileName(EditRunGateProgram.Text)) = 0 then begin
      Inc(GateCount);
    end;
    
    if GateCount < g_nRunGate_Count then begin
      for I := GateCount + 1 to g_nRunGate_Count do begin
        MainOutMessage(Format('运行网关%d异常停止,正在重新启动...', [I]));
        StartProgram(EditRunGateProgram.Text, g_sGameDirectory);
      end;
    end;
  end;
end;

// 增强的服务状态检查
procedure TfrmMain.CheckServiceHealth;
var
  ProcessHandle: THandle;
  ExitCode: DWORD;
begin
  // 检查进程是否响应
  if CheckBoxDBServer.Checked then begin
    ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, DBServer.ProcessID);
    if ProcessHandle <> 0 then begin
      try
        // 获取进程退出码
        if GetExitCodeProcess(ProcessHandle, ExitCode) then begin
          if ExitCode <> STILL_ACTIVE then begin
            MainOutMessage('数据库服务器无响应,正在重启...');
            RestartService(stDBServer);
          end;
        end;
      finally
        CloseHandle(ProcessHandle);
      end;
    end;
  end;

  // 检查服务器内存使用
  CheckServerMemoryUsage();
  
  // 检查网络连接状态
  CheckNetworkConnections();
  
  // 检查服务器响应时间
  CheckServerResponseTime();
end;

// 检查服务器内存使用
procedure TfrmMain.CheckServerMemoryUsage;
var
  ProcessMemoryCounters: TProcessMemoryCounters;
begin
  ProcessMemoryCounters.cb := SizeOf(ProcessMemoryCounters);
  
  // 检查各服务器内存使用情况
  if GetProcessMemoryInfo(DBServer.ProcessHandle, 
     @ProcessMemoryCounters, SizeOf(ProcessMemoryCounters)) then begin
    // 如果内存使用超过阈值,记录警告
    if ProcessMemoryCounters.WorkingSetSize > MAX_MEMORY_USAGE then begin
      MainOutMessage('数据库服务器内存使用过高!');
    end;
  end;
  
  // 检查其他服务器...
end;

// 检查网络连接
procedure TfrmMain.CheckNetworkConnections;
begin
  // 检查各网关的连接数
  if LoginGate <> nil then begin
    if LoginGate.ConnectionCount > MAX_CONNECTIONS then begin
      MainOutMessage('登录网关连接数过多!');
    end;
  end;
  
  // 检查网络延迟
  CheckNetworkLatency();
end;

meinvwudi

// Windows API 声明
function CreateToolhelp32Snapshot(
  dwFlags: DWORD;  // 快照标志
  th32ProcessID: DWORD  // 进程ID
): THandle; stdcall;

// 使用示例
var
  Snapshot: THandle;
  ProcessEntry32: TProcessEntry32;
begin
  // 创建系统进程快照
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  
  if Snapshot = INVALID_HANDLE_VALUE then begin
    MainOutMessage('创建进程快照失败!');
    Exit;
  end;
  
  try
    // 初始化进程信息结构
    ProcessEntry32.dwSize := SizeOf(TProcessEntry32);
    
    // 获取第一个进程信息
    if Process32First(Snapshot, ProcessEntry32) then begin
      repeat
        // 处理进程信息
        ProcessCurrentProcess(ProcessEntry32);
      until not Process32Next(Snapshot, ProcessEntry32);
    end;
    
  finally
    // 关闭快照句柄
    CloseHandle(Snapshot);
  end;
end;

const
  TH32CS_SNAPHEAPLIST = $00000001;  // 包含进程的堆列表
  TH32CS_SNAPPROCESS  = $00000002;  // 包含系统进程列表
  TH32CS_SNAPTHREAD   = $00000004;  // 包含系统线程列表
  TH32CS_SNAPMODULE   = $00000008;  // 包含进程的模块列表
  TH32CS_SNAPMODULE32 = $00000010;  // 包含32位进程的模块列表
  TH32CS_SNAPALL      = TH32CS_SNAPHEAPLIST or 
                        TH32CS_SNAPPROCESS or 
                        TH32CS_SNAPTHREAD or 
                        TH32CS_SNAPMODULE;  // 包含所有信息

th32ProcessID (进程ID):

// 获取系统中所有进程信息
procedure TfrmMain.GetProcessList;
var
  Snapshot: THandle;
  ProcessEntry32: TProcessEntry32;
  ProcessList: TStringList;
begin
  ProcessList := TStringList.Create;
  try
    // 创建进程快照
    Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if Snapshot = INVALID_HANDLE_VALUE then Exit;
    
    try
      ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
      
      // 遍历所有进程
      if Process32First(Snapshot, ProcessEntry32) then begin
        repeat
          // 收集进程信息
          ProcessList.Add(Format('进程名: %s (PID: %d)',
            [ProcessEntry32.szExeFile,  // 进程文件名
             ProcessEntry32.th32ProcessID]));  // 进程ID
             
          // 获取更多进程信息
          with ProcessEntry32 do begin
            // 父进程ID
            MainOutMessage(Format('父进程ID: %d', [th32ParentProcessID]));
            
            // 进程优先级
            MainOutMessage(Format('优先级: %d', [pcPriClassBase]));
            
            // 线程数
            MainOutMessage(Format('线程数: %d', [cntThreads]));
            
            // 子进程数
            MainOutMessage(Format('子进程数: %d', [cntUsage]));
          end;
          
        until not Process32Next(Snapshot, ProcessEntry32);
      end;
      
    finally
      CloseHandle(Snapshot);
    end;
    
    // 显示进程列表
    MemoLog.Lines.AddStrings(ProcessList);
    
  finally
    ProcessList.Free;
  end;
end;

// 检查特定进程是否运行
function TfrmMain.IsProcessRunning(const ProcessName: string): Boolean;
var
  Snapshot: THandle;
  ProcessEntry32: TProcessEntry32;
begin
  Result := False;
  
  // 创建进程快照
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snapshot = INVALID_HANDLE_VALUE then Exit;
  
  try
    ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
    
    // 查找指定进程
    if Process32First(Snapshot, ProcessEntry32) then begin
      repeat
        // 比较进程名(不区分大小写)
        if CompareText(ProcessEntry32.szExeFile, ProcessName) = 0 then begin
          Result := True;
          Break;
        end;
      until not Process32Next(Snapshot, ProcessEntry32);
    end;
    
  finally
    CloseHandle(Snapshot);
  end;
end;

meinvwudi

无响应或者没启动情况下,启动网关和服务

// 启动程序的通用函数
function TfrmMain.StartProgram(const ProgramFile, WorkDir: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  CommandLine: string;
begin
  Result := False;
  
  // 初始化启动信息结构
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  
  // 设置窗口显示状态
  if CheckBoxsw_show.Checked then begin
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_SHOW;  // 显示窗口
  end else begin
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_HIDE;  // 隐藏窗口
  end;

  try
    // 准备命令行参数
    CommandLine := Format('"%s" %s', [ProgramFile, GetGateParams(ProgramFile)]);
    
    // 创建进程
    if CreateProcess(nil,
      PChar(CommandLine),    // 命令行
      nil, nil,             // 安全属性
      False,               // 不继承句柄
      NORMAL_PRIORITY_CLASS,  // 正常优先级
      nil,                // 环境变量
      PChar(WorkDir),     // 工作目录
      StartupInfo,        // 启动信息
      ProcessInfo         // 进程信息
      ) then begin
      Result := True;
      
      // 记录进程信息
      case GetServerType(ProgramFile) of
        stRunGate: begin
          RunGateProcessInfo[CurrentGateIndex] := ProcessInfo;
          Inc(CurrentGateIndex);
        end;
        stLoginGate: begin
          LoginGateProcessInfo[CurrentLoginGateIndex] := ProcessInfo;
          Inc(CurrentLoginGateIndex);
        end;
      end;
      
      // 关闭进程和线程句柄
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      
      // 输出启动日志
      MainOutMessage(Format('成功启动程序: %s', [ExtractFileName(ProgramFile)]));
    end;
    
  except
    on E: Exception do begin
      MainOutMessage(Format('启动程序失败: %s 错误: %s', 
        [ExtractFileName(ProgramFile), E.Message]));
    end;
  end;
end;

// 获取网关启动参数
function TfrmMain.GetGateParams(const ProgramFile: string): string;
var
  ServerType: TServerType;
  GateIndex: Integer;
begin
  Result := '';
  ServerType := GetServerType(ProgramFile);
  
  case ServerType of
    stRunGate: begin
      // 运行网关参数
      GateIndex := CurrentGateIndex + 1;
      Result := Format('/Port:%s /ServerPort:%s /GateAddr:%s',
        [GetRunGatePort(GateIndex),     // 客户端连接端口
         GetServerPort,                  // 服务器连接端口
         EditGameExtIPaddr.Text]);       // 外网IP地址
    end;
    
    stLoginGate: begin
      // 登录网关参数
      GateIndex := CurrentLoginGateIndex + 1;
      Result := Format('/Port:%s /ServerPort:%s',
        [GetLoginGatePort(GateIndex),    // 登录端口
         GetLoginServerPort]);           // 登录服务器端口
    end;
  end;
end;

// 获取运行网关端口
function TfrmMain.GetRunGatePort(Index: Integer): string;
begin
  case Index of
    1: Result := EditRunGate_GatePort1.Text;
    2: Result := EditRunGate_GatePort2.Text;
    3: Result := EditRunGate_GatePort3.Text;
    4: Result := EditRunGate_GatePort4.Text;
    5: Result := EditRunGate_GatePort5.Text;
    6: Result := EditRunGate_GatePort6.Text;
    7: Result := EditRunGate_GatePort7.Text;
    8: Result := EditRunGate_GatePort8.Text;
    else Result := '7000';
  end;
end;

// 重启特定网关
procedure TfrmMain.RestartGate(const GateType: TServerType; const Index: Integer);
var
  ProgramFile: string;
begin
  case GateType of
    stRunGate: begin
      ProgramFile := EditRunGateProgram.Text;
      CurrentGateIndex := Index - 1;
    end;
    stLoginGate: begin
      ProgramFile := EditLoginGateProgram.Text;
      CurrentLoginGateIndex := Index - 1;
    end;
  end;
  
  // 启动网关
  if StartProgram(ProgramFile, g_sGameDirectory) then
    MainOutMessage(Format('%s_%d 重启成功', 
      [GetServerTypeName(GateType), Index]))
  else
    MainOutMessage(Format('%s_%d 重启失败', 
      [GetServerTypeName(GateType), Index]));
end;

meinvwudi

配置示例:

[RunGate]
Port1=7000
Port2=7001
Port3=7002
ServerPort=5000
GateAddr=192.168.1.100

[LoginGate]
Port1=7100
Port2=7101
ServerPort=5100

meinvwudi

// 添加文件到RAR压缩包
procedure TfrmMain.AddToRAR(const RARFileName, SourceFile: string; Password: string = '');
var
  sCmd: string;
  sWinrarPath: string;
  sParams: string;
begin
  try
    // 检查WinRAR是否存在
    sWinrarPath := EditWinrarFile.Text + 'Rar.exe';
    if not FileExists(sWinrarPath) then begin
      MainOutMessage('未找到WinRAR程序，请检查配置...');
      Exit;
    end;

    // 构建RAR命令参数
    sParams := 'a -ep'; // -ep: 排除路径
    
    // 添加密码参数
    if Password <> '' then
      sParams := sParams + ' -p' + Password;
      
    // 添加压缩级别
    case ComboBoxCompressLevel.ItemIndex of
      0: sParams := sParams + ' -m0';  // 存储
      1: sParams := sParams + ' -m1';  // 最快
      2: sParams := sParams + ' -m3';  // 快速
      3: sParams := sParams + ' -m5';  // 标准
    end;
    
    // 完整命令行
    sCmd := Format('"%s" %s "%s" "%s"',
      [sWinrarPath,    // WinRAR程序路径
       sParams,        // 压缩参数
       RARFileName,    // 目标RAR文件
       SourceFile]);   // 源文件
       
    // 执行压缩命令
    WinExec(PChar(sCmd), SW_HIDE);
    
    // 等待压缩完成
    Sleep(1000);
    
    // 检查是否成功
    if FileExists(RARFileName) then
      MainOutMessage(Format('文件 %s 备份成功', [ExtractFileName(SourceFile)]))
    else
      MainOutMessage(Format('文件 %s 备份失败', [ExtractFileName(SourceFile)]));
      
  except
    on E: Exception do begin
      MainOutMessage('压缩过程出错: ' + E.Message);
    end;
  end;
end;

// 执行备份操作
procedure TfrmMain.BackUpFiles(Sender: TObject);
var
  sBackupFileName: string;
  sDestDir: string;
  sPassword: string;
begin
  // 生成备份文件名(基于时间戳)
  sBackupFileName := FormatDateTime('YYYYMMDD-HHMMSS', Now);
  sDestDir := EditBakDir.Text;
  
  // 检查备份目录
  if not DirectoryExists(sDestDir) then begin
    if not CreateDir(sDestDir) then begin
      MainOutMessage('创建备份目录失败...');
      Exit;
    end;
  end;
  
  // 获取备份密码
  if CheckBoxUsePassword.Checked then
    sPassword := EditBackupPassword.Text
  else
    sPassword := '';

  try
    // 备份数据库文件
    if CheckBoxBackupDB.Checked then begin
      // 备份账号数据库
      if FileExists(EditIDDB.Text) then begin
        AddToRAR(sDestDir + '\' + sBackupFileName + '_IDDB.rar',
                EditIDDB.Text,
                sPassword);
      end;
      
      // 备份角色数据库
      if FileExists(EditHeroDB.Text) then begin
        AddToRAR(sDestDir + '\' + sBackupFileName + '_HeroDB.rar',
                EditHeroDB.Text,
                sPassword);
      end;
    end;

    // 备份配置文件
    if CheckBoxBackupConfig.Checked then begin
      // 备份所有INI文件
      AddToRAR(sDestDir + '\' + sBackupFileName + '_Config.rar',
              g_sGameDirectory + '*.ini',
              sPassword);
    end;

    // 备份日志文件
    if CheckBoxBackupLog.Checked then begin
      AddToRAR(sDestDir + '\' + sBackupFileName + '_Log.rar',
              g_sGameDirectory + 'Log\*.*',
              sPassword);
    end;

    // 备份自定义文件
    if CheckBoxCustomBackup.Checked then begin
      BackupCustomFiles(sBackupFileName, sDestDir, sPassword);
    end;

  except
    on E: Exception do begin
      MainOutMessage('备份过程出错: ' + E.Message);
    end;
  end;
end;

// 备份自定义文件
procedure TfrmMain.BackupCustomFiles(const BackupName, DestDir, Password: string);
var
  I: Integer;
  FileList: TStringList;
begin
  FileList := TStringList.Create;
  try
    // 从自定义列表获取文件
    MemoCustomFiles.Lines.Clear;
    for I := 0 to ListBoxCustomFiles.Items.Count - 1 do begin
      if FileExists(ListBoxCustomFiles.Items[I]) then
        FileList.Add(ListBoxCustomFiles.Items[I]);
    end;
    
    // 创建临时文件列表
    FileList.SaveToFile(g_sGameDirectory + 'BackupList.txt');
    
    // 使用文件列表进行备份
    AddToRAR(DestDir + '\' + BackupName + '_Custom.rar',
            '@' + g_sGameDirectory + 'BackupList.txt',
            Password);
            
  finally
    FileList.Free;
    DeleteFile(g_sGameDirectory + 'BackupList.txt');
  end;
end;

// 定时备份处理
procedure TfrmMain.TimerAutoBackupTimer(Sender: TObject);
begin
  if not CheckBoxAutoBackup.Checked then Exit;
  
  // 检查是否到达备份时间
  if RadioButtonWeekly.Checked then begin
    // 按周备份
    if (ComboBoxBackupDay.ItemIndex = DayOfWeek(Now) - 1) and
       (SpinEditBackupHour.Value = HourOf(Now)) and
       (SpinEditBackupMinute.Value = MinuteOf(Now)) then begin
      BackUpFiles(nil);
    end;
  end else begin
    // 按间隔备份
    if GetTickCount - LastBackupTime >= 
       Cardinal(SpinEditBackupInterval.Value * 60 * 1000) then begin
      BackUpFiles(nil);
      LastBackupTime := GetTickCount;
    end;
  end;
end;

meinvwudi

启动游戏过程

// 启动游戏按钮点击事件
procedure TfrmMain.ButtonStartGameClick(Sender: TObject);
begin
  // 检查是否已经在运行
  if m_nStartStatus = 1 then begin
    StopGame();  // 如果正在运行则停止
    Exit;
  end;
  
  // 开始启动游戏
  m_nStartStatus := 1;
  ButtonStartGame.Caption := '停止游戏(&S)';
  TimerStartGame.Enabled := True;  // 启动启动计时器
end;

// 游戏启动计时器事件 - 按顺序启动各服务器
procedure TfrmMain.TimerStartGameTimer(Sender: TObject);
begin
  TimerStartGame.Enabled := False;
  try
    // 1. 启动数据库服务器
    if CheckBoxDBServer.Checked then begin
      MainOutMessage('正在启动数据库服务器...');
      if not StartProgram(EditDBServerProgram.Text, g_sGameDirectory) then begin
        MainOutMessage('数据库服务器启动失败!');
        Exit;
      end;
      Sleep(1000); // 等待数据库服务器就绪
    end;

    // 2. 启动登录服务器
    if CheckBoxLoginServer.Checked then begin
      MainOutMessage('正在启动登录服务器...');
      if not StartProgram(EditLoginSrvProgram.Text, g_sGameDirectory) then begin
        MainOutMessage('登录服务器启动失败!');
        Exit;
      end;
      Sleep(500);
    end;

    // 3. 启动日志服务器
    if CheckBoxLogServer.Checked then begin
      MainOutMessage('正在启动日志服务器...');
      if not StartProgram(EditLogServerProgram.Text, g_sGameDirectory) then begin
        MainOutMessage('日志服务器启动失败!');
        Exit;
      end;
      Sleep(500);
    end;

    // 4. 启动游戏主服务器
    if CheckBoxM2Server.Checked then begin
      MainOutMessage('正在启动游戏主服务器...');
      if not StartProgram(EditM2ServerProgram.Text, g_sGameDirectory) then begin
        MainOutMessage('游戏主服务器启动失败!');
        Exit;
      end;
      Sleep(1000);
    end;

    // 5. 启动登录网关(可多个)
    if CheckBoxLoginGate.Checked then begin
      MainOutMessage('正在启动登录网关...');
      for I := 1 to g_nLoginGate_Count do begin
        if not StartProgram(EditLoginGateProgram.Text, g_sGameDirectory) then begin
          MainOutMessage(Format('登录网关 %d 启动失败!', [I]));
          Continue;
        end;
        if CheckBoxLoginGateSleep.Checked then
          Sleep(SpinEditLoginGateSleep.Value);
      end;
    end;

    // 6. 启动选择网关
    if CheckBoxSelGate.Checked then begin
      MainOutMessage('正在启动选择网关...');
      for I := 1 to g_nSelGate_Count do begin
        if not StartProgram(EditSelGateProgram.Text, g_sGameDirectory) then begin
          MainOutMessage(Format('选择网关 %d 启动失败!', [I]));
          Continue;
        end;
        Sleep(500);
      end;
    end;

    // 7. 启动运行网关
    if CheckBoxRunGate.Checked then begin
      MainOutMessage('正在启动运行网关...');
      for I := 1 to g_nRunGate_Count do begin
        if not StartProgram(EditRunGateProgram.Text, g_sGameDirectory) then begin
          MainOutMessage(Format('运行网关 %d 启动失败!', [I]));
          Continue;
        end;
        Sleep(500);
      end;
    end;

    // 启动成功
    MainOutMessage('游戏服务器启动完成!');
    
    // 启动监控
    TimerCheckRun.Enabled := True;

  except
    on E: Exception do begin
      MainOutMessage('启动过程出错: ' + E.Message);
      StopGame();
    end;
  end;
end;

// 启动单个程序
function TfrmMain.StartProgram(const ProgramFile, WorkDir: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  CommandLine: string;
  CmdParams: string;
begin
  Result := False;
  
  // 检查文件是否存在
  if not FileExists(ProgramFile) then begin
    MainOutMessage(Format('程序文件不存在: %s', [ProgramFile]));
    Exit;
  end;

  // 获取启动参数
  CmdParams := GetServerParams(ProgramFile);
  
  // 准备启动信息
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  
  // 设置窗口显示状态
  if CheckBoxsw_show.Checked then begin
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_SHOW;
  end else begin
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_HIDE;
  end;

  try
    // 构建命令行
    CommandLine := Format('"%s" %s', [ProgramFile, CmdParams]);
    
    // 创建进程
    if CreateProcess(nil,
      PChar(CommandLine),
      nil, nil,
      False,
      NORMAL_PRIORITY_CLASS,
      nil,
      PChar(WorkDir),
      StartupInfo,
      ProcessInfo) then begin
      Result := True;
      
      // 保存进程信息
      SaveProcessInfo(ProgramFile, ProcessInfo);
      
      // 关闭句柄
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    end;
    
  except
    on E: Exception do begin
      MainOutMessage(Format('启动程序出错: %s - %s', 
        [ExtractFileName(ProgramFile), E.Message]));
    end;
  end;
end;

// 获取服务器启动参数
function TfrmMain.GetServerParams(const ProgramFile: string): string;
var
  FileName: string;
begin
  FileName := ExtractFileName(ProgramFile);
  Result := '';
  
  // 根据程序名称返回对应参数
  if CompareText(FileName, 'DBServer.exe') = 0 then
    Result := Format('/Port:%s', [EditDBServerPort.Text])
  else if CompareText(FileName, 'LoginSrv.exe') = 0 then
    Result := Format('/Port:%s /GatePort:%s', 
      [EditLoginSrvPort.Text, EditLoginSrvGatePort.Text])
  else if CompareText(FileName, 'M2Server.exe') = 0 then
    Result := Format('/Port:%s /GatePort:%s', 
      [EditM2ServerPort.Text, EditM2ServerGatePort.Text])
  // ... 其他服务器参数
end;