求助：如何关闭服务程序？

[new_yang]

创建了service 程序后，关机重启动后服务已经启动，现在问题是不知道如何关掉程序（要的效果是：程序像普通程序一样关掉，但是在本地服务里面还存在，只是服务状态由已启动变成空白）
以下是我的想法但是不行：
if FFromService then
begin
WinExec(PansiChar('net stop ' + GetServiceName), SW_Hide); //停止服务
close;
end
else
begin
Application.Terminate;
end;

请问该如何改？

[new_yang]

自己顶下

[酣酣]

不知道！ 帮你顶一下！ 呵呵！

[e我行]

使用API var hSCManager, hService: SC_HANDLE; // handle of service control manager ServiceStatus: SERVICE_STATUS; begin Result := False; // Open the service control manager hSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if (hSCManager <> 0) then begin hService := OpenService(hSCManager, Servicename, SERVICE_ALL_ACCESS); if (hService <> 0) then begin Result := ControlService( hService, SERVICE_CONTROL_STOP, ServiceStatus); CloseServiceHandle(hService); end; CloseServiceHandle(hSCManager); end; end;