传奇3大补帖1.82 Delphi源代码

夜游神

1. {打开Service Control Manager}
   
2.     SchSCManager := OpenSCManager (nil,                       { 机器 (nil = 本机) }
   
3.                                   nil,                        { 数据库 (nil = 默认 }
   
4.                                   SC_MANAGER_ALL_ACCESS);     { 访问权 }
   
5. 
   
6.     if (SchSCManager = 0) then
   
7.       if (GetLastError = ERROR_ACCESS_DENIED) then
   
8.       begin
   
9.          { 没有权限打开SCM管理,必须是poor用户}
   
10.          showmessage('PortTalk: 没有权限访问Service Control Manager，'#$D#$A+
    
11.                      '不能安装和启动PortTalk，请使用超级用户来安装。');
    
12.          result:=false;
    
13.          exit;
    
14.       end;
    
15. 
    
16.     repeat begin
    
17.          {打开PortTalk服务数据库}
    
18.          schService := OpenService(SchSCManager,       {服务数据库句柄}
    
19.                                   'PortTalk',          {要启动的服务名}
    
20.                                   SERVICE_ALL_ACCESS); {存取的权限}
    
21. 
    
22.          if (schService = 0) then
    
23.             case (GetLastError) of
    
24.                 ERROR_ACCESS_DENIED:
    
25.                    begin
    
26.                         showmessage('PortTalk: 没有权限访问PortTalk服务数据库');
    
27.                         result:=false;
    
28.                         exit;
    
29.                    end;
    
30.                 ERROR_INVALID_NAME:
    
31.                    begin
    
32.                         showmessage('PortTalk: 指定的服务名无效');
    
33.                         result:=false;
    
34.                         exit;
    
35.                    end;
    
36.                 ERROR_SERVICE_DOES_NOT_EXIST:
    
37.                    begin
    
38.                         showmessage('PortTalk: PortTalk驱动程序不存在');
    
39.                         InstallPortTalkDriver;
    
40.                    end;
    
41.             end;
    
42.      end until (schService <> 0);
    
43. 
    
44.     {启动PortTalk驱动程序，如果发生错误，一般是由于PortTalk.SYS不存在。}
    
45. 
    
46.     ret := TNewStartService(@StartService) (schService,  {服务标识}
    
47.                         0,             {参数个数}
    
48.                         nil);         {参数}
    
49. 
    
50.     if (ret) then //showmessage('PortTalk: PortTalk安装成功！')
    
51.     else begin
    
52.         err := GetLastError;
    
53.         if (err = ERROR_SERVICE_ALREADY_RUNNING) then
    
54.           showmessage('PortTalk: PortTalk已经安装')
    
55.         else begin
    
56.           showmessage('PortTalk: 启动PortTalk时发生未知错误。'+#$D#$A+
    
57.                       'PortTalk.SYS没有放入\System32\Drivers目录吗?');
    
58.           result:=false;
    
59.           exit;
    
60.         end;
    
61.     end;
    
62. 
    
63.     {关闭Service Control Manager}
    
64.     CloseServiceHandle (schService);
    
65.     result:=TRUE;
    
66. end;
    
67. 
    
68. procedure InstallPortTalkDriver;
    
69. var
    
70.     SchSCManager:SC_HANDLE;
    
71.     schService:SC_HANDLE;
    
72.     err:DWORD;
    
73.     DriverFileName:array[0..79]of CHAR;
    
74. begin
    
75.     if (GetSystemDirectory(DriverFileName, 55)=0) then
    
76.     begin
    
77.        showmessage('PortTalk: 取System目录出错');
    
78.        exit;
    
79.     end;
    
80. 
    
81.     {加入驱动程序文件名}
    
82.     lstrcat(DriverFileName,'\Drivers\PortTalk.sys');
    
83.     showmessagefmt('PortTalk: 拷贝驱动程序到%s',[DriverFileName]);
    
84. 
    
85.     {拷贝驱动程序到System32/drivers目录，如果出错，一般是因为文件不存在。}
    
86. 
    
87.     if (not CopyFile('PortTalk.sys', DriverFileName, FALSE)) then
    
88.     begin
    
89.          showmessagefmt('PortTalk: 拷贝驱动程序到以下位置出错：%s'+#$D#$A+
    
90.                         '请手工拷贝到system32/driver目录',
    
91.                         [DriverFileName]);
    
92.          exit;
    
93.     end;
    
94. 
    
95.     {打开Service Control Manager}
    
96.     SchSCManager := OpenSCManager (nil,                   { 机器 (nil = 本机) }
    
97.                                   nil,                    { 数据库 (nil = 默认 }
    
98.                                   SC_MANAGER_ALL_ACCESS); { 访问权 }
    
99. 
    
100.     schService := CreateService (SchSCManager,                     { SCManager数据库 }
     
101.                                 'PortTalk',                        { 服务个数 }
     
102.                                 'PortTalk',                        { 显示名 }
     
103.                                 SERVICE_ALL_ACCESS,                { 权限 }
     
104.                                 SERVICE_KERNEL_DRIVER,             { 服务类别 }
     
105.                                 SERVICE_DEMAND_START,              { 启动类别 }
     
106.                                 SERVICE_ERROR_NORMAL,              { 出错控件类别 }
     
107.                                 'System32\Drivers\PortTalk.sys',   { 服务二进制文件 }
     
108.                                 nil,                               { 加入的组 }
     
109.                                 nil,                               { 标识 }
     
110.                                 nil,                               { 隶属 }
     
111.                                 nil,                               { 本地帐户 }
     
112.                                 nil                                { 密码 }
     
113.                                 );
     
114. 
     
115.     if (schService = 0) then
     
116.     begin
     
117.          err := GetLastError;
     
118.          if (err = ERROR_SERVICE_EXISTS) then
     
119.                showmessage('PortTalk: 驱动程序不存在。')
     
120.          else  showmessage('PortTalk:建立服务时发生未知的错误。');
     
121.     end
     
122.     else showmessage('PortTalk: 成功安装！');
     
123. 
     
124.     { 关闭Service Control Manager }
     
125.     CloseServiceHandle (schService);
     
126. end;
     
127. end.

复制代码

分享名称：大补帖1.82源码.zip
分享链接：http://pan.zxdll.cn:88/#s/9bccVtJQ
访问密码：

游客，如果您要查看本帖隐藏内容请回复

传奇霸主

传奇3大补帖1.82

MooCa

瞧瞧什么价格

ryancg

dasfsdfsdfsdf

pppxcom

haorenyishengpingan

test39857

很有怀念感，看下

cwqc1

66666666666666666666666666666666666666666666666666666666

woke

看看。。。。。。。天书。