DELPHI版传奇引擎学习菜鸟篇(applem2)-06

{运行外部程序的函数}
function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
var
  StartupInfo: TStartupInfo;
  sCommandLine: string;
  sCurDirectory: string;
begin
  Result := 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, //lpApplicationName,
    PChar(sCommandLine), //lpCommandLine,
    nil, //lpProcessAttributes,
    nil, //lpThreadAttributes,
    true, //bInheritHandles,
    0, //dwCreationFlags,
    nil, //lpEnvironment,
    PChar(sCurDirectory), //lpCurrentDirectory,
    StartupInfo, //lpStartupInfo,
    ProgramInfo.ProcessInfo) then
  begin //lpProcessInformation
    Result := GetLastError();
  end;
  Sleep(dwWaitTime);
  //WaitForInputIdle(ProgramInfo.ProcessInfo.hProcess,INFINITE);
end;
{通用启动过程,RunGate的可以再写一个,重载一下就行了}
procedure StartGameTimer(var {之前把这个漏掉了}Server: TProgram; sHandle: string);
var
  nRetCode: Integer;
begin
  if Server.boGetStart then
  begin
    case Server.btStartStatus of
      0:
        begin
          //CloseHandle(DBServer.ProcessHandle);
          {运行DBServer,返回0表示运行成功}
          nRetCode := RunProgram(Server, sHandle, 0);
          if nRetCode = 0 then
          begin
            {运行成功将运行标志写为1(正在启动)}
            Server.btStartStatus := 1;
            {返回DBServer窗口句柄(显示DBServer)}
            Server.ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, Server.ProcessInfo.dwProcessId);
            //frmMain.mainoutmessage(inttostr(server.ProcessHandle));
          end
          else
          begin
          {否则显示错误信息,调用的是GetlastError}
            ShowMessage(IntToStr(nRetCode));
          end;
          Exit;
        end;
      1:
        begin //如果状态为1 则还没启动完成
          //        Server.btStartStatus:=2;
          Exit;
        end;
    end;
  end;
end;