用Delphi编写加载和卸载驱动sys代码!

1688

希望获得用Delphi编写加载和卸载驱动sys源代码!

福禄娃娃

帮你找到了一篇源码，希望可以帮到你

1. *********************************************************************** }
   
2. { 模块名称:MyDriver                                                         }
   
3. { 模块功能:加载/卸载驱动程序                                                }
   
4. { 版 本号:v1.0.0                                                           }
   
5. { 日      期:2008-5-18                                                        }
   
6. { *********************************************************************** }
   
7. unit MyDriver;
   
8. 
   
9. interface
   
10. 
    
11. uses
    
12.     Windows,SysUtils,Tlhelp32,WinSvc;
    
13.     {功能:加载驱动程序
    
14.      参数:sztheDriverName:驱动程序完成路径.
    
15.           szSvrName        :驱动程序名称.}
    
16.     function InstallDriver(sztheDriverName,szSvrName:string):Boolean;
    
17.     {功能:卸载驱动程序
    
18.      参数:szSvrName        :驱动程序名称.}
    
19.     function UnInstallDriver(szSvrName:string):Boolean;
    
20.    
    
21. implementation
    
22. 
    
23. function InstallDriver(sztheDriverName,szSvrName:string):Boolean;
    
24. var
    
25.     hServiceMgr,hServiceTwdm:SC_HANDLE;
    
26.     szDir:array[0..1023]of char;
    
27.     lpsztheDriverName,p:PChar;
    
28. begin
    
29.     ZeroMemory(@szDir,1024);
    
30.     strcopy(szDir,Pchar(sztheDriverName));
    
31.     lpsztheDriverName:=@szDir;
    
32.     {打开服务控制管理器}
    
33.     hServiceMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS );
    
34. 
    
35.     if hServiceMgr=0 then
    
36.       begin
    
37.         {OpenSCManager() Faild.}
    
38.         Result:=False;
    
39.         Exit;
    
40.       end;
    
41. 
    
42.     hServiceTwdm:=CreateService(hServiceMgr,
    
43.                                 PChar(szSvrName),       {SYSTEM\CurrentControlSet\Services驱动程序的在注册表中的名字}
    
44.                                 PChar(szSvrName),       {注册表驱动程序的 DisplayName 值}
    
45.                                 SERVICE_ALL_ACCESS,     {加载驱动程序的访问权限}
    
46.                                 SERVICE_KERNEL_DRIVER,{表示加载的服务是驱动程序}
    
47.                                 SERVICE_DEMAND_START, {注册表驱动程序的 Start 值}
    
48.                                 SERVICE_ERROR_IGNORE, {注册表驱动程序的 ErrorControl 值}
    
49.                                 lpsztheDriverName,      {注册表驱动程序的 ImagePath 值}
    
50.                                 nil,nil,nil,nil,nil);
    
51. 
    
52.     if hServiceTwdm=0 then
    
53.       begin
    
54.         if GetLastError()=ERROR_SERVICE_EXISTS then
    
55.           begin
    
56.             {Service Exists}
    
57.             hServiceTwdm:=OpenService(hServiceMgr,PChar(szSvrName),SERVICE_ALL_ACCESS);
    
58.             if hServiceTwdm=0 then
    
59.               begin
    
60.                 CloseServiceHandle(hServiceMgr);
    
61.                 Result:=False;
    
62.                 Exit;
    
63.               end;
    
64.           end
    
65.         else
    
66.           begin
    
67.             CloseServiceHandle(hServiceMgr);
    
68.             Result:=False;
    
69.             Exit;
    
70.           end;
    
71.       end;
    
72. 
    
73.     {Start the drivers}
    
74.     if hServiceTwdm<>0 then
    
75.       begin
    
76.         if StartService(hServiceTwdm,0,p)=False then
    
77.           begin
    
78.             if ERROR_SERVICE_ALREADY_RUNNING=GetLastError() then
    
79.               begin
    
80.                 {no real problem}
    
81.               end
    
82.             else
    
83.               begin
    
84.                 CloseServiceHandle(hServiceMgr);
    
85.                 CloseServiceHandle(hServiceTwdm);
    
86.                 Result:=False;
    
87.                 Exit;
    
88.               end;
    
89.           end;
    
90. 
    
91.         CloseServiceHandle(hServiceMgr);
    
92.         CloseServiceHandle(hServiceTwdm);
    
93.       end;
    
94.      
    
95.     Result:=True;
    
96. end;
    
97. 
    
98. function UnInstallDriver(szSvrName:string):Boolean;
    
99. var
    
100.     hServiceMgr,hServiceTwdm:SC_HANDLE;
     
101.     SvrSta:SERVICE_STATUS;
     
102. begin
     
103.     hServiceMgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS );
     
104.     if hServiceMgr=0 then
     
105.       begin
     
106.         {OpenSCManager() Faild.}
     
107.         Result:=False;
     
108.         Exit;
     
109.       end;
     
110. 
     
111.     hServiceTwdm:=OpenService(hServiceMgr,PChar(szSvrName),SERVICE_ALL_ACCESS );
     
112.     if hServiceTwdm=0 then
     
113.       begin
     
114.         {OpenService() Faild.}
     
115.         CloseServiceHandle(hServiceMgr);
     
116.         Result:=False;
     
117.         Exit;
     
118.       end;
     
119. 
     
120.     {停止驱动程序,如果停止失败,只有重新启动才能,再动态加载。}
     
121.     if ControlService(hServiceTwdm,SERVICE_CONTROL_STOP,SvrSta)=False then
     
122.       begin
     
123.         {ControlService() Faild.}
     
124.         CloseServiceHandle(hServiceTwdm);
     
125.         CloseServiceHandle(hServiceMgr);
     
126.         Result:=False;
     
127.         Exit;
     
128.       end;
     
129.     {动态卸载驱动程序.}
     
130.     if DeleteService(hServiceTwdm)=False then
     
131.       begin
     
132.         {DeleteSrevice() Faild.}
     
133.         CloseServiceHandle(hServiceTwdm);
     
134.         CloseServiceHandle(hServiceMgr);
     
135.         Result:=False;
     
136.         Exit;
     
137.       end;
     
138. 
     
139.     CloseServiceHandle(hServiceTwdm);
     
140.     CloseServiceHandle(hServiceMgr);
     
141.     Result:=True;
     
142. end;
     
143. 
     
144. end.

复制代码

1688

福禄娃娃 发表于 2013-11-4 14:34

                               
登录/注册后可看大图

帮你找到了一篇源码，希望可以帮到你

非常感谢,解决问题!