sm
服务器租用 传奇3一条龙 996 支付平台源码 无法下载点击此处反馈
查看: 2327|回复: 6

传奇3大补帖1.82 Delphi源代码 [传奇3源码]

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

积分
236844
发表于 2022-4-22 23:28:35 | 显示全部楼层 |阅读模式
  1. {打开Service Control Manager}
  2.     SchSCManager := OpenSCManager (nil,                       { 机器 (nil = 本机) }
  3.                                   nil,                        { 数据库 (nil = 默认 }
  4.                                   SC_MANAGER_ALL_ACCESS);     { 访问权 }

  5.     if (SchSCManager = 0) then
  6.       if (GetLastError = ERROR_ACCESS_DENIED) then
  7.       begin
  8.          { 没有权限打开SCM管理,必须是poor用户}
  9.          showmessage('PortTalk: 没有权限访问Service Control Manager,'#$D#$A+
  10.                      '不能安装和启动PortTalk,请使用超级用户来安装。');
  11.          result:=false;
  12.          exit;
  13.       end;

  14.     repeat begin
  15.          {打开PortTalk服务数据库}
  16.          schService := OpenService(SchSCManager,       {服务数据库句柄}
  17.                                   'PortTalk',          {要启动的服务名}
  18.                                   SERVICE_ALL_ACCESS); {存取的权限}

  19.          if (schService = 0) then
  20.             case (GetLastError) of
  21.                 ERROR_ACCESS_DENIED:
  22.                    begin
  23.                         showmessage('PortTalk: 没有权限访问PortTalk服务数据库');
  24.                         result:=false;
  25.                         exit;
  26.                    end;
  27.                 ERROR_INVALID_NAME:
  28.                    begin
  29.                         showmessage('PortTalk: 指定的服务名无效');
  30.                         result:=false;
  31.                         exit;
  32.                    end;
  33.                 ERROR_SERVICE_DOES_NOT_EXIST:
  34.                    begin
  35.                         showmessage('PortTalk: PortTalk驱动程序不存在');
  36.                         InstallPortTalkDriver;
  37.                    end;
  38.             end;
  39.      end until (schService <> 0);

  40.     {启动PortTalk驱动程序,如果发生错误,一般是由于PortTalk.SYS不存在。}

  41.     ret := TNewStartService(@StartService) (schService,  {服务标识}
  42.                         0,             {参数个数}
  43.                         nil);         {参数}

  44.     if (ret) then //showmessage('PortTalk: PortTalk安装成功!')
  45.     else begin
  46.         err := GetLastError;
  47.         if (err = ERROR_SERVICE_ALREADY_RUNNING) then
  48.           showmessage('PortTalk: PortTalk已经安装')
  49.         else begin
  50.           showmessage('PortTalk: 启动PortTalk时发生未知错误。'+#$D#$A+
  51.                       'PortTalk.SYS没有放入\System32\Drivers目录吗?');
  52.           result:=false;
  53.           exit;
  54.         end;
  55.     end;

  56.     {关闭Service Control Manager}
  57.     CloseServiceHandle (schService);
  58.     result:=TRUE;
  59. end;

  60. procedure InstallPortTalkDriver;
  61. var
  62.     SchSCManager:SC_HANDLE;
  63.     schService:SC_HANDLE;
  64.     err:DWORD;
  65.     DriverFileName:array[0..79]of CHAR;
  66. begin
  67.     if (GetSystemDirectory(DriverFileName, 55)=0) then
  68.     begin
  69.        showmessage('PortTalk: 取System目录出错');
  70.        exit;
  71.     end;

  72.     {加入驱动程序文件名}
  73.     lstrcat(DriverFileName,'\Drivers\PortTalk.sys');
  74.     showmessagefmt('PortTalk: 拷贝驱动程序到%s',[DriverFileName]);

  75.     {拷贝驱动程序到System32/drivers目录,如果出错,一般是因为文件不存在。}

  76.     if (not CopyFile('PortTalk.sys', DriverFileName, FALSE)) then
  77.     begin
  78.          showmessagefmt('PortTalk: 拷贝驱动程序到以下位置出错:%s'+#$D#$A+
  79.                         '请手工拷贝到system32/driver目录',
  80.                         [DriverFileName]);
  81.          exit;
  82.     end;

  83.     {打开Service Control Manager}
  84.     SchSCManager := OpenSCManager (nil,                   { 机器 (nil = 本机) }
  85.                                   nil,                    { 数据库 (nil = 默认 }
  86.                                   SC_MANAGER_ALL_ACCESS); { 访问权 }

  87.     schService := CreateService (SchSCManager,                     { SCManager数据库 }
  88.                                 'PortTalk',                        { 服务个数 }
  89.                                 'PortTalk',                        { 显示名 }
  90.                                 SERVICE_ALL_ACCESS,                { 权限 }
  91.                                 SERVICE_KERNEL_DRIVER,             { 服务类别 }
  92.                                 SERVICE_DEMAND_START,              { 启动类别 }
  93.                                 SERVICE_ERROR_NORMAL,              { 出错控件类别 }
  94.                                 'System32\Drivers\PortTalk.sys',   { 服务二进制文件 }
  95.                                 nil,                               { 加入的组 }
  96.                                 nil,                               { 标识 }
  97.                                 nil,                               { 隶属 }
  98.                                 nil,                               { 本地帐户 }
  99.                                 nil                                { 密码 }
  100.                                 );

  101.     if (schService = 0) then
  102.     begin
  103.          err := GetLastError;
  104.          if (err = ERROR_SERVICE_EXISTS) then
  105.                showmessage('PortTalk: 驱动程序不存在。')
  106.          else  showmessage('PortTalk:建立服务时发生未知的错误。');
  107.     end
  108.     else showmessage('PortTalk: 成功安装!');

  109.     { 关闭Service Control Manager }
  110.     CloseServiceHandle (schService);
  111. end;
  112. end.
复制代码
分享名称:大补帖1.82源码.zip
分享链接:http://pan.zxdll.cn:88/#s/9bccVtJQ
访问密码:
游客,如果您要查看本帖隐藏内容请回复






上一篇:传奇3人寿仁插件DD145源代码全套编译通过
下一篇:dnf地下城与勇士源码(Edgame Maker版)源码
回复

使用道具 举报

8

主题

12

回帖

3410

积分

裁决

积分
3410
发表于 2022-4-23 16:31:25 | 显示全部楼层
传奇3大补帖1.82
回复 支持 反对

使用道具 举报

1

主题

20

回帖

289

积分

旋风流星刀

积分
289
发表于 2023-7-2 16:26:51 | 显示全部楼层
瞧瞧什么价格
回复 支持 反对

使用道具 举报

0

主题

3

回帖

9

积分

旋风流星刀

积分
9
发表于 2024-3-1 08:53:14 | 显示全部楼层
dasfsdfsdfsdf
回复 支持 反对

使用道具 举报

0

主题

4

回帖

175

积分

旋风流星刀

积分
175
发表于 2024-4-8 22:22:25 | 显示全部楼层
haorenyishengpingan
回复 支持 反对

使用道具 举报

0

主题

17

回帖

58

积分

旋风流星刀

积分
58
发表于 2024-4-13 11:59:36 | 显示全部楼层
很有怀念感,看下
回复 支持 反对

使用道具 举报

0

主题

11

回帖

22

积分

旋风流星刀

积分
22
发表于 2024-7-5 21:38:22 | 显示全部楼层
66666666666666666666666666666666666666666666666666666666
回复 支持 反对

使用道具 举报

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-7-24 13:05 , Processed in 0.307571 second(s), 73 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

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