设为首页收藏本站
开启辅助访问 切换到窄版

依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步，快速开始

【好消息，好消息，好消息】VIP会员可以发表文章赚积分啦 ！
搜索
游戏源码
游戏源码
网站系统
网站系统
Electron
Electron
影音资源
影音资源
依星源码资源网,依星资源网»首页 › 影音资源 › 影音资源 › DELPHI版传奇引擎学习菜鸟篇(applem2)-02
返回列表 发新帖
查看: 166|回复: 0

[游戏架设教程] DELPHI版传奇引擎学习菜鸟篇(applem2)-02

[复制链接] 主动推送
admin

2365

主题

2374

帖子

3671

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3671
发表于 2024-11-2 23:51:51 | 显示全部楼层 |阅读模式
DELPHI版传奇引擎学习菜鸟篇(applem2)-02
每天只学习一个知识点,也是一种进步.
接着学习GShare.pas的实现部分,其实这个应该叫做GAMECENTER共享单元,我刚开始理解的是错误的,这是根据名字起的.
在学习实现部分之前,声明部分还有一些变量:
  1. //虽然光看这些变量不可能全部知道代表什么,但是为了学习,还是注释一下
  2. var
  3.   //下面4个应该是更新数据(格式)用的,默认为本机更新
  4.   g_sDataListAddrs: string = '127.0.0.1';
  5.   g_wDataListPort: Word = 18888;
  6.   g_sDataListPassWord: string = '123456';
  7.   g_boGetDataListOK: Boolean = False;
  8.   //下面3个是获取更新列表用的,
  9.   g_DataListReadBuffer: PChar;
  10.   g_nDataListReadLength: Integer;
  11.   g_GetDatList: TStringList;

  13.   //下面6个很明显,从字面就能看出意思对应启动设置\窗口\按钮状态
  14.   g_nFormIdx: Integer;
  15.   g_IniConf: Tinifile;
  16.   g_sButtonStartGame: string = '启动游戏服务器(&S)';
  17.   g_sButtonStopGame: string = '停止游戏服务器(&T)';
  18.   g_sButtonStopStartGame: string = '中止启动游戏服务器(&T)';
  19.   g_sButtonStopStopGame: string = '中止停止游戏服务器(&T)';
  20.   //下面对应的都是配置变量,主窗口都有对应的控件
  21.   g_sConfFile: string = '.\Config.ini';
  22.   g_sBackListFile: string = '.\BackupList.txt';
  23.   g_sGameName: string = '测试引擎';
  24.   g_sGameDirectory: string = '.\';
  25.   g_sHeroDBName: string = 'HeroDB';
  26.   g_sExtIPaddr: string = '127.0.0.1';
  27.   g_sExtIPaddr2: string = '127.0.0.1';
  28.   g_boAutoRunBak: Boolean = False;
  29.   g_boCloseWuXin: Boolean = False;
  30.   g_boIP2: Boolean = False;
  31.   // 声明并初始化服务端配置结构,也许类似这样的应该定义为类,前边也好多
  32.   g_Config: TConfig = (
  33.       DBServer: (
  34.         MainFormX: 0;
  35.         MainFormY: 373;
  36.         GatePort: 5100;
  37.         ServerPort: 6000;
  38.         GetStart: True;
  39.         ProgramFile: 'DBServer.exe';
  40.       );
  41.       LoginSrv: (
  42.         MainFormX: 252;
  43.         MainFormY: 0;
  44.         GatePort: 5500;
  45.         ServerPort: 5600;
  46.         MonPort: 3000;
  47.         GetStart: True;
  48.         ProgramFile: 'LoginSrv.exe';
  49.       );
  50.       M2Server:(
  51.         MainFormX: 561;
  52.         MainFormY: 0;
  53.         GatePort: 5000;
  54.         MsgSrvPort: 4900;
  55.         GetStart: True;
  56.         ProgramFile: 'M2Server.exe';
  57.         ProgramFile: 'PlugTop.exe';
  58.       );
  59.       LogServer:(
  60.         MainFormX: 252;
  61.         MainFormY: 286;
  62.         Port: 10000;
  63.         GetStart: True;
  64.         ProgramFile: 'LogDataServer.exe';
  65.       );

  67.        RunGate:(
  68.         MainFormX: 437;
  69.         MainFormY: 373;
  70.         GetStart: (True, False, False, False, False, False, False, False);
  71.         GatePort: (7200, 7201, 7202, 7203, 7204, 7205, 7206, 7207);
  72.         ProgramFile: 'RunGate.exe';
  73.       );
  74.       SelGate:(
  75.         MainFormX: 0;
  76.         MainFormY: 180;
  77.         GatePort: (7100, 7101);
  78.         GetStart1: True;
  79.         GetStart2: False;
  80.         ProgramFile: 'SelGate.exe';
  81.       );
  82.       LoginGate:(
  83.         MainFormX: 0;
  84.         MainFormY: 0;
  85.         GatePort: 7000;
  86.         GetStart: True;
  87.         ProgramFile: 'LoginGate.exe';
  88.       );
  89.        PlugTop:(
  90.         MainFormX: 525;
  91.         MainFormY:300;
  92.         GetStart: True;
  93.         ProgramFile: 'PlugTop.exe';
  94.       );
  95.     );
  96.   //声明服务程序变量,暂时就这么理解吧
  97.   DBServer: TProgram;
  98.   LoginServer: TProgram;
  99.   LogServer: TProgram;
  100.   M2Server: TProgram;
  101.   RunGate: array[0..MAXRUNGATECOUNT - 1] of TProgram;
  102.   SelGate: TProgram;
  103.   SelGate1: TProgram;
  104.   LoginGate: TProgram;
  105.   LoginGate2: TProgram;
  106.   PlugTop: TProgram;
  107.   //下面是检测程序运行状态的变量,暂时理解为心跳检测吧
  108.   g_dwStopTick: LongWord;
  109.   g_dwStopTimeOut: LongWord = 10000;
  110.   g_dwM2CheckCodeAddr: LongWord;
  111.   g_dwDBCheckCodeAddr: LongWord;
  112.   g_BackUpManager: TBackUpManager;
  113.   m_nBackStartStatus: Integer = 0;
复制代码
到此GShare.pas的声明部分结束,觉得还可以优化,接下来是实现部分,实现一共有5个函数\过程:
  1. procedure LoadConfig();//加载配置
  2. procedure SaveConfig();//保存配置
  3. {运行服务}
  4. function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
  5. {停止服务}
  6. function StopProgram(var ProgramInfo: TProgram; dwWaitTime: LongWord): Integer;
  7. {发送消息}
  8. procedure SendProgramMsg(DesForm: THandle; wIdent: Word; sSendMsg: string);
复制代码
加载保存配置就是读取和写入服务端里边的INI和TXT配置文件,启动停止服务发送数据(消息)用的是API:
  1. //读取配置信息
  2. procedure LoadConfig();
  3. begin
  4.   //下面一堆都是读取INI文件,准备后续优化一下
  5.   g_sGameDirectory := g_IniConf.ReadString(BasicSectionName, 'GameDirectory', g_sGameDirectory);
  6.   g_sHeroDBName := g_IniConf.ReadString(BasicSectionName, 'HeroDBName', g_sHeroDBName);
  7.   g_sGameName := g_IniConf.ReadString(BasicSectionName, 'GameName', g_sGameName);
  8.   g_sExtIPaddr := g_IniConf.ReadString(BasicSectionName, 'ExtIPaddr', g_sExtIPaddr);
  9.   g_sExtIPaddr2 := g_IniConf.ReadString(BasicSectionName, 'ExtIPaddr2', g_sExtIPaddr2);
  10.   g_boAutoRunBak := g_IniConf.ReadBool(BasicSectionName, 'AutoRunBak', g_boAutoRunBak);
  11.   g_boIP2 := g_IniConf.ReadBool(BasicSectionName, 'IP2', g_boIP2);
  12.   g_boCloseWuXin := g_IniConf.ReadBool(BasicSectionName, 'CloseWuXin', g_boCloseWuXin);

  14.   g_Config.DBServer.MainFormX := g_IniConf.ReadInteger(DBServerSectionName, 'MainFormX', g_Config.DBServer.MainFormX);
  15.   g_Config.DBServer.MainFormY := g_IniConf.ReadInteger(DBServerSectionName, 'MainFormY', g_Config.DBServer.MainFormY);
  16.   g_Config.DBServer.GatePort := g_IniConf.ReadInteger(DBServerSectionName, 'GatePort', g_Config.DBServer.GatePort);
  17.   g_Config.DBServer.ServerPort := g_IniConf.ReadInteger(DBServerSectionName, 'ServerPort', g_Config.DBServer.ServerPort);
  18.   g_Config.DBServer.GetStart := g_IniConf.ReadBool(DBServerSectionName, 'GetStart', g_Config.DBServer.GetStart);

  20.   g_Config.LoginSrv.MainFormX := g_IniConf.ReadInteger(LoginSrvSectionName, 'MainFormX', g_Config.LoginSrv.MainFormX);
  21.   g_Config.LoginSrv.MainFormY := g_IniConf.ReadInteger(LoginSrvSectionName, 'MainFormY', g_Config.LoginSrv.MainFormY);
  22.   g_Config.LoginSrv.GatePort := g_IniConf.ReadInteger(LoginSrvSectionName, 'GatePort', g_Config.LoginSrv.GatePort);
  23.   g_Config.LoginSrv.ServerPort := g_IniConf.ReadInteger(LoginSrvSectionName, 'ServerPort', g_Config.LoginSrv.ServerPort);
  24.   g_Config.LoginSrv.MonPort := g_IniConf.ReadInteger(LoginSrvSectionName, 'MonPort', g_Config.LoginSrv.MonPort);
  25.   g_Config.LoginSrv.GetStart := g_IniConf.ReadBool(LoginSrvSectionName, 'GetStart', g_Config.LoginSrv.GetStart);

  27.   g_Config.M2Server.MainFormX := g_IniConf.ReadInteger(M2ServerSectionName, 'MainFormX', g_Config.M2Server.MainFormX);
  28.   g_Config.M2Server.MainFormY := g_IniConf.ReadInteger(M2ServerSectionName, 'MainFormY', g_Config.M2Server.MainFormY);
  29.   g_Config.M2Server.GatePort := g_IniConf.ReadInteger(M2ServerSectionName, 'GatePort', g_Config.M2Server.GatePort);
  30.   g_Config.M2Server.MsgSrvPort := g_IniConf.ReadInteger(M2ServerSectionName, 'MsgSrvPort', g_Config.M2Server.MsgSrvPort);
  31.   g_Config.M2Server.GetStart := g_IniConf.ReadBool(M2ServerSectionName, 'GetStart', g_Config.M2Server.GetStart);

  33.   g_Config.LogServer.MainFormX := g_IniConf.ReadInteger(LogServerSectionName, 'MainFormX', g_Config.LogServer.MainFormX);
  34.   g_Config.LogServer.MainFormY := g_IniConf.ReadInteger(LogServerSectionName, 'MainFormY', g_Config.LogServer.MainFormY);
  35.   g_Config.LogServer.Port := g_IniConf.ReadInteger(LogServerSectionName, 'Port', g_Config.LogServer.Port);
  36.   g_Config.LogServer.GetStart := g_IniConf.ReadBool(LogServerSectionName, 'GetStart', g_Config.LogServer.GetStart);

  38.   g_Config.RunGate.MainFormX := g_IniConf.ReadInteger(RunGateSectionName, 'MainFormX', g_Config.RunGate.MainFormX);
  39.   g_Config.RunGate.MainFormY := g_IniConf.ReadInteger(RunGateSectionName, 'MainFormY', g_Config.RunGate.MainFormY);
  40.   g_Config.RunGate.GetStart[0] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart1', g_Config.RunGate.GetStart[0]);
  41.   g_Config.RunGate.GetStart[1] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart2', g_Config.RunGate.GetStart[1]);
  42.   g_Config.RunGate.GetStart[2] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart3', g_Config.RunGate.GetStart[2]);
  43.   g_Config.RunGate.GetStart[3] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart4', g_Config.RunGate.GetStart[3]);
  44.   g_Config.RunGate.GetStart[4] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart5', g_Config.RunGate.GetStart[4]);
  45.   g_Config.RunGate.GetStart[5] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart6', g_Config.RunGate.GetStart[5]);
  46.   g_Config.RunGate.GetStart[6] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart7', g_Config.RunGate.GetStart[6]);
  47.   g_Config.RunGate.GetStart[7] := g_IniConf.ReadBool(RunGateSectionName, 'GetStart8', g_Config.RunGate.GetStart[7]);

  49.   g_Config.RunGate.GatePort[0] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort1', g_Config.RunGate.GatePort[0]);
  50.   g_Config.RunGate.GatePort[1] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort2', g_Config.RunGate.GatePort[1]);
  51.   g_Config.RunGate.GatePort[2] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort3', g_Config.RunGate.GatePort[2]);
  52.   g_Config.RunGate.GatePort[3] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort4', g_Config.RunGate.GatePort[3]);
  53.   g_Config.RunGate.GatePort[4] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort5', g_Config.RunGate.GatePort[4]);
  54.   g_Config.RunGate.GatePort[5] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort6', g_Config.RunGate.GatePort[5]);
  55.   g_Config.RunGate.GatePort[6] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort7', g_Config.RunGate.GatePort[6]);
  56.   g_Config.RunGate.GatePort[7] := g_IniConf.ReadInteger(RunGateSectionName, 'GatePort8', g_Config.RunGate.GatePort[7]);

  58.   g_Config.SelGate.MainFormX := g_IniConf.ReadInteger(SelGateSectionName, 'MainFormX', g_Config.SelGate.MainFormX);
  59.   g_Config.SelGate.MainFormY := g_IniConf.ReadInteger(SelGateSectionName, 'MainFormY', g_Config.SelGate.MainFormY);
  60.   g_Config.SelGate.GatePort[0] := g_IniConf.ReadInteger(SelGateSectionName, 'GatePort1', g_Config.SelGate.GatePort[0]);
  61.   g_Config.SelGate.GatePort[1] := g_IniConf.ReadInteger(SelGateSectionName, 'GatePort2', g_Config.SelGate.GatePort[1]);
  62.   g_Config.SelGate.GetStart1 := g_IniConf.ReadBool(SelGateSectionName, 'GetStart1', g_Config.SelGate.GetStart1);
  63.   g_Config.SelGate.GetStart2 := g_IniConf.ReadBool(SelGateSectionName, 'GetStart2', g_Config.SelGate.GetStart2);

  65.   g_Config.LoginGate.MainFormX := g_IniConf.ReadInteger(LoginGateSectionName, 'MainFormX', g_Config.LoginGate.MainFormX);
  66.   g_Config.LoginGate.MainFormY := g_IniConf.ReadInteger(LoginGateSectionName, 'MainFormY', g_Config.LoginGate.MainFormY);
  67.   g_Config.LoginGate.GatePort := g_IniConf.ReadInteger(LoginGateSectionName, 'GatePort', g_Config.LoginGate.GatePort);
  68.   g_Config.LoginGate.GetStart := g_IniConf.ReadBool(LoginGateSectionName, 'GetStart', g_Config.LoginGate.GetStart);

  70.   g_Config.PlugTop.MainFormX := g_IniConf.ReadInteger(PlugTopSectionName, 'MainFormX', g_Config.PlugTop.MainFormX);
  71.   g_Config.PlugTop.MainFormY := g_IniConf.ReadInteger(PlugTopSectionName, 'MainFormY', g_Config.PlugTop.MainFormY);
  72.   g_Config.PlugTop.GetStart := g_IniConf.ReadBool(PlugTopSectionName, 'GetStart', g_Config.PlugTop.GetStart);
  73. end;

  75. procedure SaveConfig();   //保存配置信息
  76. begin
  77.   //没什么可注释的,写入INI
  78.   g_IniConf.WriteString(BasicSectionName, 'GameDirectory', g_sGameDirectory);
  79.   g_IniConf.WriteString(BasicSectionName, 'HeroDBName', g_sHeroDBName);
  80.   g_IniConf.WriteString(BasicSectionName, 'GameName', g_sGameName);
  81.   g_IniConf.WriteString(BasicSectionName, 'ExtIPaddr', g_sExtIPaddr);
  82.   g_IniConf.WriteString(BasicSectionName, 'ExtIPaddr2', g_sExtIPaddr2);
  83.   g_IniConf.WriteBool(BasicSectionName, 'AutoRunBak', g_boAutoRunBak);
  84.   g_IniConf.WriteBool(BasicSectionName, 'IP2', g_boIP2);
  85.   g_IniConf.WriteBool(BasicSectionName, 'CloseWuXin', g_boCloseWuXin);

  87.   g_IniConf.WriteInteger(DBServerSectionName, 'MainFormX', g_Config.DBServer.MainFormX);
  88.   g_IniConf.WriteInteger(DBServerSectionName, 'MainFormY', g_Config.DBServer.MainFormY);
  89.   g_IniConf.WriteInteger(DBServerSectionName, 'GatePort', g_Config.DBServer.GatePort);
  90.   g_IniConf.WriteInteger(DBServerSectionName, 'ServerPort', g_Config.DBServer.ServerPort);
  91.   g_IniConf.WriteBool(DBServerSectionName, 'GetStart', g_Config.DBServer.GetStart);

  93.   g_IniConf.WriteInteger(LoginSrvSectionName, 'MainFormX', g_Config.LoginSrv.MainFormX);
  94.   g_IniConf.WriteInteger(LoginSrvSectionName, 'MainFormY', g_Config.LoginSrv.MainFormY);
  95.   g_IniConf.WriteInteger(LoginSrvSectionName, 'GatePort', g_Config.LoginSrv.GatePort);
  96.   g_IniConf.WriteInteger(LoginSrvSectionName, 'ServerPort', g_Config.LoginSrv.ServerPort);
  97.   g_IniConf.WriteInteger(LoginSrvSectionName, 'MonPort', g_Config.LoginSrv.MonPort);
  98.   g_IniConf.WriteBool(LoginSrvSectionName, 'GetStart', g_Config.LoginSrv.GetStart);

  100.   g_IniConf.WriteInteger(M2ServerSectionName, 'MainFormX', g_Config.M2Server.MainFormX);
  101.   g_IniConf.WriteInteger(M2ServerSectionName, 'MainFormY', g_Config.M2Server.MainFormY);
  102.   g_IniConf.WriteInteger(M2ServerSectionName, 'GatePort', g_Config.M2Server.GatePort);
  103.   g_IniConf.WriteInteger(M2ServerSectionName, 'MsgSrvPort', g_Config.M2Server.MsgSrvPort);
  104.   g_IniConf.WriteBool(M2ServerSectionName, 'GetStart', g_Config.M2Server.GetStart);

  106.   g_IniConf.WriteInteger(LogServerSectionName, 'MainFormX', g_Config.LogServer.MainFormX);
  107.   g_IniConf.WriteInteger(LogServerSectionName, 'MainFormY', g_Config.LogServer.MainFormY);
  108.   g_IniConf.WriteInteger(LogServerSectionName, 'Port', g_Config.LogServer.Port);
  109.   g_IniConf.WriteBool(LogServerSectionName, 'GetStart', g_Config.LogServer.GetStart);

  111.   g_IniConf.WriteInteger(RunGateSectionName, 'MainFormX', g_Config.RunGate.MainFormX);
  112.   g_IniConf.WriteInteger(RunGateSectionName, 'MainFormY', g_Config.RunGate.MainFormY);
  113.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart1', g_Config.RunGate.GetStart[0]);
  114.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart2', g_Config.RunGate.GetStart[1]);
  115.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart3', g_Config.RunGate.GetStart[2]);
  116.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart4', g_Config.RunGate.GetStart[3]);
  117.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart5', g_Config.RunGate.GetStart[4]);
  118.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart6', g_Config.RunGate.GetStart[5]);
  119.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart7', g_Config.RunGate.GetStart[6]);
  120.   g_IniConf.WriteBool(RunGateSectionName, 'GetStart8', g_Config.RunGate.GetStart[7]);

  122.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort1', g_Config.RunGate.GatePort[0]);
  123.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort2', g_Config.RunGate.GatePort[1]);
  124.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort3', g_Config.RunGate.GatePort[2]);
  125.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort4', g_Config.RunGate.GatePort[3]);
  126.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort5', g_Config.RunGate.GatePort[4]);
  127.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort6', g_Config.RunGate.GatePort[5]);
  128.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort7', g_Config.RunGate.GatePort[6]);
  129.   g_IniConf.WriteInteger(RunGateSectionName, 'GatePort8', g_Config.RunGate.GatePort[7]);

  131.   g_IniConf.WriteInteger(SelGateSectionName, 'MainFormX', g_Config.SelGate.MainFormX);
  132.   g_IniConf.WriteInteger(SelGateSectionName, 'MainFormY', g_Config.SelGate.MainFormY);
  133.   g_IniConf.WriteInteger(SelGateSectionName, 'GatePort1', g_Config.SelGate.GatePort[0]);
  134.   g_IniConf.WriteInteger(SelGateSectionName, 'GatePort2', g_Config.SelGate.GatePort[1]);
  135.   g_IniConf.WriteBool(SelGateSectionName, 'GetStart1', g_Config.SelGate.GetStart1);
  136.   g_IniConf.WriteBool(SelGateSectionName, 'GetStart2', g_Config.SelGate.GetStart2);

  138.   g_IniConf.WriteInteger(LoginGateSectionName, 'MainFormX', g_Config.LoginGate.MainFormX);
  139.   g_IniConf.WriteInteger(LoginGateSectionName, 'MainFormY', g_Config.LoginGate.MainFormY);
  140.   g_IniConf.WriteInteger(LoginGateSectionName, 'GatePort', g_Config.LoginGate.GatePort);
  141.   g_IniConf.WriteBool(LoginGateSectionName, 'GetStart', g_Config.LoginGate.GetStart);

  143.   g_IniConf.WriteInteger(PlugTopSectionName, 'MainFormX', g_Config.PlugTop.MainFormX);
  144.   g_IniConf.WriteInteger(PlugTopSectionName, 'MainFormY', g_Config.PlugTop.MainFormY);
  145.   g_IniConf.WriteBool(PlugTopSectionName, 'GetStart', g_Config.PlugTop.GetStart);
  146. end;
  147. {启动服务,用的大部分是API}
  148. function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
  149. var
  150.   StartupInfo: TStartupInfo; //获取窗口状态
  151.   sCommandLine: string;      //程序完整路径
  152.   sCurDirectory: string;     //程序目录
  153. begin
  154.   Result := 0;
  155.   FillChar(StartupInfo, SizeOf(TStartupInfo), #0); //这个虽然查看了API参考,还是不理解,暂时就认为它是初始化吧
  156.   GetStartupInfo(StartupInfo);//获取进程的启动信息
  157.   {格式化程序完整路径字符串}
  158.   sCommandLine := format('%s%s %s %d %d', [ProgramInfo.sDirectory, ProgramInfo.sProgramFile, sHandle, ProgramInfo.nMainFormX, ProgramInfo.nMainFormY]);
  159.   sCurDirectory := ProgramInfo.sDirectory; //取得程序运行目录
  160.   if not CreateProcess(nil,  //如果启动服务失败返回错误代码
  161.     PChar(sCommandLine),
  162.     nil,
  163.     nil,
  164.     True,
  165.     0,
  166.     nil,
  167.     PChar(sCurDirectory),
  168.     StartupInfo,
  169.     ProgramInfo.ProcessInfo) then
  170.   begin
  171.     Result := GetLastError();
  172.   end;
  173.   Sleep(dwWaitTime);  //等待
  174. end;
  175. {停止服务,这个函数很简单,不再注释}
  176. function StopProgram(var ProgramInfo: TProgram; dwWaitTime: LongWord): Integer;
  177. var
  178.   dwExitCode: LongWord;
  179. begin
  180.   Result := 0;
  181.   dwExitCode := 0;
  182.   if TerminateProcess(ProgramInfo.ProcessHandle, dwExitCode) then
  183.   begin
  184.     Result := GetLastError();
  185.   end;
  186.   Sleep(dwWaitTime);
  187. end;
  188. {这个是向指定程序发送数据}
  189. procedure SendProgramMsg(DesForm: THandle; wIdent: Word; sSendMsg: string);
  190. var
  191.   SendData: TCopyDataStruct;
  192.   nParam: Integer;
  193. begin
  194.   nParam := MakeLong(0, wIdent);
  195.   SendData.cbData := length(sSendMsg) + 1;
  196.   GetMem(SendData.lpData, SendData.cbData);
  197.   StrCopy(SendData.lpData, PChar(sSendMsg));
  198.   SendMessage(DesForm, WM_COPYDATA, nParam, Cardinal(@SendData));
  199.   FreeMem(SendData.lpData);
  200. end;
  201. {初始化和反初始化}
  202. initialization
  203.   begin
  204.     g_IniConf := Tinifile.Create(g_sConfFile);
  205.   end;

  207. finalization
  208.   begin
  209.     g_IniConf.Free;
  210.   end;
复制代码
主要是加载和保存配置过程过程重复的事情很多,可以考虑改进.
整个GShare.pas单元学习完毕,接下来可以开始主单元文件学习了.

关注过程,不知不觉就发现了结果原来如此...

MainFormX, MainFormY
扫码关注微信公众号，及时获取最新资源信息！【下载附件优惠：VIP会员5折；永久VIP免费】
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

免责声明：
1、本站提供的所有资源仅供参考学习使用，版权归原著所有，禁止下载本站资源参与商业和非法行为，请在24小时之内自行删除！
2、本站所有内容均由互联网收集整理、网友上传，并且以计算机技术研究交流为目的，仅供大家参考、学习，请勿任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动，请您购买正版授权并合法使用。
4、论坛的所有内容都不保证其准确性，完整性，有效性，由于源码具有复制性，一经售出，概不退换。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任，由用户自行承担
6、本站所有资源来自互联网转载，版权归原著所有，用户访问和使用本站的条件是必须接受本站“免责声明”，如果不遵守，请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的，一切后果自己负责，本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者，视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，不向其支付报酬。若有学员需要商用本站资源，请务必联系版权方购买正版授权！
10、本网站如无意中侵犯了某个企业或个人的知识产权，请来信【站长信箱312337667@qq.com】告之，本站将立即删除。
郑重声明：
本站所有资源仅供用户本地电脑学习源代码的内含设计思想和原理，禁止任何其他用途！
本站所有资源、教程来自互联网转载，仅供学习交流，不得商业运营资源，不确保资源完整性，图片和资源仅供参考，不提供任何技术服务。
本站资源仅供本地编辑研究学习参考，禁止未经资源商正版授权参与任何商业行为，违法行为！如需商业请购买各资源商正版授权
本站仅收集资源，提供用户自学研究使用，本站不存在私自接受协助用户架设游戏或资源，非法运营资源行为。
 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫，私享最新原创实用干货

QQ|免责声明|小黑屋|依星资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-12-22 09:20

Powered by Net188.com X3.4

邮箱：312337667@qq.com 客服QQ：312337667（工作时间：9：00~21：00）

快速回复 返回顶部 返回列表