Delphi 服务操作

1. unit Service;
2. interface
3. uses Windows,Messages,SysUtils,Winsvc,Dialogs;
4. function  StartServices(Const  SvrName:String):Boolean;
5. function  StopServices(Const  SvrName:String):Boolean;
6. function  QueryServiceStatu(Const SvrName:   String):String;
7. function  CreateServices(Const SvrName,FilePath:String):Boolean;
8. function  DeleteServices(Const SvrName: String):Boolean;
9. implementation
10. //开启服务
11. function StartServices(Const   SvrName:   String):   Boolean;
12. var
13. a,b:SC_HANDLE;
14. c:PChar;
15. begin
16. Result:=False;
17. a:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
18. if a <=0 then  Exit;
19. b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);
20. if b <=0  then  Exit;
21. try
22. Result:=StartService(b,0,c);
23. CloseServiceHandle(b);
24. CloseServiceHandle(a);
25. except
26. CloseServiceHandle(b);
27. CloseServiceHandle(a);
28. Exit;
29. end;
30. end;
31. //停止服务
32. function   StopServices(Const   SvrName:   String):   Boolean;
33. var
34. a,b:   SC_HANDLE;
35. d:   TServiceStatus;
36. begin
37. Result := False;
38. a :=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
39. if a <=0 then Exit;
40. b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);
41. if b <=0  then  Exit;
42. try
43. Result:=ControlService(b,SERVICE_CONTROL_STOP,d);
44. CloseServiceHandle(a);
45. CloseServiceHandle(b);
46. except
47. CloseServiceHandle(a);
48. CloseServiceHandle(b);
49. Exit;
50. end;
51. end;
52. //查询当前服务的状态
53. function  QueryServiceStatu(Const   SvrName:   String):   String;
54. var
55. a,b:   SC_HANDLE;
56. d:   TServiceStatus;
57. begin
58. Result := '未安装';
59. a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
60. if a <=0 then  Exit;
61. b := OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);
62. if  b  <= 0  then  Exit;
63. try
64. QueryServiceStatus(b,d);
65. if   d.dwCurrentState     =   SERVICE_RUNNING   then
66. Result   :=   '启动'       //Run
67. else   if   d.dwCurrentState     =   SERVICE_RUNNING   then
68. Result   :=   'Wait'       //Runing
69. else   if   d.dwCurrentState     =   SERVICE_START_PENDING then
70. Result   :=   'Wait'       //Pause
71. else   if   d.dwCurrentState     =   SERVICE_STOP_PENDING     then
72. Result   :=   '停止'       //Pause
73. else   if   d.dwCurrentState     =   SERVICE_PAUSED   then
74. Result   :=   '暂停'       //Pause
75. else   if   d.dwCurrentState     =   SERVICE_STOPPED   then
76. Result   :=   '停止'     //Stop
77. else   if   d.dwCurrentState     =   SERVICE_CONTINUE_PENDING     then
78. Result   :=   'Wait'       //Pause
79. else   if   d.dwCurrentState     =   SERVICE_PAUSE_PENDING   then
80. Result   :=   'Wait';       //Pause
81. CloseServiceHandle(a);
82. CloseServiceHandle(b);
83. except
84. CloseServiceHandle(a);
85. CloseServiceHandle(b);
86. Exit;
87. end;
88. end;
89. {建立服务}
90. function  CreateServices(Const SvrName,FilePath:   String):   Boolean;
91. var
92. a,b:SC_HANDLE;
93. begin
94. Result:=False;
95. if  FilePath   =''   then   Exit;
96. a   :=   OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);
97. if   a   <=   0   then   Exit;
98. try
99. b   :=   CreateService(a,PChar(SvrName),
100. PChar(SvrName),
101. SERVICE_ALL_ACCESS,
102. SERVICE_INTERACTIVE_PROCESS   or   SERVICE_WIN32_OWN_PROCESS,
103. SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,
104. PChar(FilePath),nil,nil,nil,nil,nil);
105. if   b   <=   0   then   begin
106. ShowMessage(   SysErrorMessage(   GetlastError   ));
107. Exit;
108. end;
109. CloseServiceHandle(a);
110. CloseServiceHandle(b);
111. Result   :=   True;
112. except
113. CloseServiceHandle(a);
114. CloseServiceHandle(b);
115. Exit;
116. end;
117. end;
118. {卸载服务}
119. function   DeleteServices(Const   SvrName:   String):   Boolean;
120. var
121. a,b:SC_HANDLE;
122. begin
123. Result:=False;
124. a := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
125. if a <= 0 then  Exit;
126. b :=OpenService(a,PChar(SvrName),STANDARD_RIGHTS_REQUIRED);
127. if b <= 0 then Exit;
128. try
129. Result := DeleteService(b);
130. if not Result then
131. ShowMessage(SysErrorMessage(GetlastError));
132. CloseServiceHandle(b);
133. CloseServiceHandle(a);
134. except
135. CloseServiceHandle(b);
136. CloseServiceHandle(a);
137. Exit;
138. end;
139. end;
140. end.
141. 调用方法：
142. {启动服务}
143. StartServices(服务名);
144. {停止服务}
145. StopServices(服务名);
146. {新建服务}
147. CreateServices(服务名,exe文件路径);
148. {删除服务}
149. DeleteServices(服务名);
150. {获取服务状态}
151. string:=QueryServiceStatu(服务名);

http://blog.****.net/yanjiaye520/article/details/7840911