Delphi 不使用自带模板创建服务

[delphi] view plain copy

1. <pre name="code" class="delphi">program Project1;
2. uses
3. Windows,
4. WinSvc;
5. const
6. ServiceName: pchar = ‘SnowWings Service‘;
7. DisplayName: pchar = ‘Skysword‘;
8. Description: pchar = ‘雪羽服务器控制台‘;
9. var
10. Status:       TServiceStatus;
11. StatusHandle: SERVICE_STATUS_HANDLE;
12. ServiceTable: array [0 .. 1] of TServiceTableEntry;
13. Stopped:      boolean;
14. Paused:       boolean;
15. { 我们自己要实现的功能代码写在这里 }
16. procedure ServiceMain;
17. begin
18. repeat
19. if not Paused then
20. begin
21. // Beep(1000, 1000);
22. Sleep(1000);
23. end;
24. until Stopped;
25. end;
26. { 服务处理程序：一个服务处理程序内可以包含一个服务或多个服务的执行代码，但是它们都拥有固定的三个部分：服务main函数，服务ServiceMain函数和服务Control Handler函数。
27. 服务配置程序：服务配置程序包括：服务的创建、服务的卸载、服务信息的查询、修改等； }
28. procedure ServiceCtrlHandler(Control: dword); stdcall; // 服务控制函数
29. begin
30. case Control of
31. SERVICE_CONTROL_STOP: // 停止服务
32. begin
33. Stopped               := True;
34. Status.dwCurrentState := SERVICE_STOP_PENDING;
35. SetServiceStatus(StatusHandle, Status);
36. end;
37. SERVICE_CONTROL_PAUSE: // 暂停服务
38. begin
39. Paused                := True;
40. Status.dwCurrentState := SERVICE_PAUSED;
41. SetServiceStatus(StatusHandle, Status);
42. end;
43. SERVICE_CONTROL_CONTINUE: // 继续服务
44. begin
45. Paused                := False;
46. Status.dwCurrentState := SERVICE_RUNNING;
47. SetServiceStatus(StatusHandle, Status);
48. end;
49. SERVICE_CONTROL_INTERROGATE:
50. SetServiceStatus(StatusHandle, Status);
51. SERVICE_CONTROL_SHUTDOWN:
52. Stopped := True;
53. end;
54. end;
55. procedure ServiceCtrlDispatcher(dwArgc: dword; var lpszArgv: pchar); stdcall;
56. begin
57. StatusHandle := RegisterServiceCtrlHandler(ServiceName, @ServiceCtrlHandler);
58. if StatusHandle <> 0 then
59. begin
60. ZeroMemory(@Status, SizeOf(Status));
61. Status.dwServiceType := SERVICE_WIN32_OWN_PROCESS or
62. SERVICE_INTERACTIVE_PROCESS;
63. Status.dwCurrentState     := SERVICE_START_PENDING;
64. Status.dwControlsAccepted := SERVICE_ACCEPT_STOP or
65. SERVICE_ACCEPT_PAUSE_CONTINUE;
66. Status.dwWaitHint := 1000;
67. SetServiceStatus(StatusHandle, Status);
68. Stopped               := False;
69. Paused                := False;
70. Status.dwCurrentState := SERVICE_RUNNING;
71. SetServiceStatus(StatusHandle, Status);
72. ServiceMain; // 入口
73. Status.dwCurrentState := SERVICE_STOPPED;
74. SetServiceStatus(StatusHandle, Status);
75. end;
76. end;
77. procedure UninstallService(ServiceName: pchar);
78. var
79. SCManager: SC_HANDLE;
80. Service:   SC_HANDLE;
81. begin
82. SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
83. if SCManager = 0 then
84. Exit;
85. try
86. Service := OpenService(SCManager, ServiceName, SERVICE_ALL_ACCESS);
87. ControlService(Service, SERVICE_CONTROL_STOP, Status);
88. DeleteService(Service);
89. CloseServiceHandle(Service);
90. finally
91. CloseServiceHandle(SCManager);
92. end;
93. end;
94. /// ////////////////
95. { 添加一个服务的描述信息,你是否采用了更简洁的方法,这是一个例子 }
96. function SetServiceDescription(SH: THandle; Desc: pchar): Bool;
97. const
98. SERVICE_CONFIG_DESCRIPTION: dword = 1;
99. var
100. OSVersionInfo:        TOSVersionInfo;
101. ChangeServiceConfig2: function(hService: SC_HANDLE; dwInfoLevel: dword;
102. lpInfo: Pointer):   Bool; StdCall;
103. LH:                   THandle;
104. begin
105. Result                            := False;
106. OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
107. GetVersionEx(OSVersionInfo);
108. if (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) and // NT? 环境判断 ，可以去掉
109. (OSVersionInfo.dwMajorVersion >= 5) then
110. begin
111. LH     := GetModuleHandle(advapi32);
112. Result := LH <> 0;
113. if not Result then
114. Exit;
115. ChangeServiceConfig2 := GetProcAddress(LH, ‘ChangeServiceConfig2A‘);
116. Result               := @ChangeServiceConfig2 <> nil;
117. if not Result then
118. Exit;
119. Result := ChangeServiceConfig2(SH, SERVICE_CONFIG_DESCRIPTION, @Desc);
120. { if Result then
121. FreeLibrary(LH); }
122. end;
123. end;
124. procedure InstallService(ServiceName, DisplayName, Description: pchar;
125. FileName: string);
126. const
127. SERVICE_CONFIG_DESCRIPTION: dword = 1;
128. var
129. SCManager: SC_HANDLE;
130. Service:   SC_HANDLE;
131. Args:      pchar;
132. begin
133. SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
134. if SCManager = 0 then
135. Exit;
136. try
137. Service := CreateService(SCManager, ServiceName, DisplayName,
138. SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS or
139. SERVICE_INTERACTIVE_PROCESS, SERVICE_AUTO_START, SERVICE_ERROR_IGNORE,
140. pchar(FileName), nil, nil, nil, nil, nil);
141. try
142. SetServiceDescription(Service, Description);
143. except
144. end;
145. Args := nil;
146. StartService(Service, 0, Args);
147. CloseServiceHandle(Service);
148. finally
149. CloseServiceHandle(SCManager);
150. end;
151. end;
152. begin
153. if ParamStr(1) = ‘/u‘ then
154. begin
155. UninstallService(ServiceName);
156. end
157. else
158. begin
159. ServiceTable[0].lpServiceName := ServiceName;
160. ServiceTable[0].lpServiceProc := @ServiceCtrlDispatcher;
161. ServiceTable[1].lpServiceName := nil;
162. ServiceTable[1].lpServiceProc := nil;
163. StartServiceCtrlDispatcher(ServiceTable[0]);
164. InstallService(ServiceName, DisplayName, Description,
165. pchar(ParamStr(0)));
166. end;
167. end.</pre><br>
168. <br>
169. <pre></pre>
170. <br>

http://blog.csdn.net/warrially/article/details/8258911