delphi 启动停止windows服务 转

ph033378

　　http://blog.csdn.net/haiou327/article/details/6106233
　　不用cmd用delphi如何实现启动停止windows服务
建议参考一下Delphi的ScktSrvr原码，   
  $(DELPHI)/Source/Vcl/ScktSrvr.dpr  
　　
--------------------------------------------------------------------------------
windows 系统服务
--------------------------------------------------------------------------------



function StartService(AServName: string): Boolean; //use WinSvc
var
SCManager, hService: SC_HANDLE;
lpServiceArgVectors: PChar;
begin
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
Result := SCManager <> 0;
if Result then
try
hService := OpenService(SCManager, PChar(AServName), SERVICE_ALL_ACCESS);
Result := hService <> 0;
if (hService = 0) and (GetLastError = ERROR_SERVICE_DOES_NOT_EXIST) then
Exception.Create('The specified service does not exist');
if hService <> 0 then
try
lpServiceArgVectors := nil;
Result := WinSvc.StartService(hService, 0, PChar(lpServiceArgVectors));
if not Result and (GetLastError = ERROR_SERVICE_ALREADY_RUNNING) then
Result := True;
finally
CloseServiceHandle(hService);
end;
finally
CloseServiceHandle(SCManager);
end;
end;

function StopService(AServName: string): Boolean;
var
SCManager, hService: SC_HANDLE;
SvcStatus: TServiceStatus;
begin
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
Result := SCManager <> 0;
if Result then
try
hService := OpenService(SCManager, PChar(AServName), SERVICE_ALL_ACCESS);
Result := hService <> 0;
if Result then
try  //停止并卸载服务;
Result := ControlService(hService, SERVICE_CONTROL_STOP, SvcStatus);
//删除服务，这一句可以不要;
//      DeleteService(hService);
finally
CloseServiceHandle(hService);
end;
finally
CloseServiceHandle(SCManager);
end;
end;
　　///////////////////////////////////////////////////////////////////////////////////
总不能让用户自己启动scktsrvr.exe吧？将其安装为NT服务似乎也不是很好的办法，我想最好就是将它绑定到应用服务器了，请问各位，我该如何做呢？一定送分！
---------------------------------------------------------------
　　---------------------------------------------------------------
　　可以将你的App Server加到ScktSrvr那个程序中，或ScktSrvr加到你的程序中，那个程序在VCL目录下，不管怎么，第一次还是得安装成NT服务，不然它自动会加？
---------------------------------------------------------------
　　---------------------------------------------------------------
　　把Scktsrvr加到启动程序中(我就是这样做的);
　　---------------------------------------------------------------
　　---------------------------------------------------------------
　　把Scktsrvr加到启动程序中
---------------------------------------------------------------
　　把它加启动程序中？不好吧。
该程序是NT服务型的，只要运行一次，以后就自动运行了。所以没有必要让它加到启动组中每次再运行一次。
可以试试以下两种方法：
1.在发布应用服务器时，把Scktsrvr一同发布，在应用服务器执行的开始，先执行Scktsrvr，第一次执行后，在注册表中写一个标志，表示Scktsrvr已经运行。以后再运行时首先检查这个标志，如已运行就不再执行了。
2.在安装盘中做呀。制作安装盘的工具大多都有执行外壳命令的功能。安装应用服务器后让安装程序执行一下Scktsrvr就可以了！
　　---------------------------------------------------------------
　　---------------------------------------------------------------
　　Scktsrvr.exe加到启动程序中
　　
---------------------------------------------------------------
　　在Delphi的安装目录下的/Source/Vcl目录下有ScktSrvr.dpr整个项目，你可以将的应用程序服务器加在这个项目里，就不用ScktSrvr.Exe了。
---------------------------------------------------------------
　　Scktsrvr是个服务
Scktsrvr.exe -install  
注册这个服务，并在服务管理器把它设为自动就OK了。
　　---------------------------------------------------------------
　　把Scktsrvr加到启动程序中
---------------------------------------------------------------
　　
我就是这样做的，在ScktSrvr.dqr项目里，加入远程数据模块，将服务器要用的控件都放到远程数据模块中，编译执行。
然后打开客户端程序，连接，成功！！没什么问题也！！！！
---------------------------------------------------------------
　　先启动你的Scktsrvr；
可以再应用程序启动后，调用外部程序；
---------------------------------------------------------------
---------------------------------------------------------------
　　那就只执行一次喽
将Scktsrvr放入：
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/RunOnce
---------------------------------------------------------------
---------------------------------------------------------------
　　在ｄｐｒ中
procedure RunSckt;
var
  handle: hwnd;
begin
  if FindWindow(nil, 'scktsrvr') = 0 then
    ShellExecute(handle, 'open', pchar(extractFilepath(application.exename) + 'scktsrvr.exe'), '', '', SW_SHOWNA);
end;
在主ｆｏｒｍ中
procedure TfrmMain.FormDestroy(Sender: TObject);
var
  HandleSocket: Hwnd;
begin
  HandleSocket := FindWindow(nil, 'scktsrvr');
  if HandleSocket <> 0 then
    SendMessage(handlesocket, wm_close, 0, 0);
end;
　　
---------------------------------------------------------------
　　第一 scktsrvr /install 安装到服务器中最好，因为在98下面启动是不行的，只有在2k下面或者NT下面才行；
第二 scktsrvr整个工程源代码在VCL下面，可以改变名称，和里面的数据模块，可以改个名称；
第三 通讯端口可以改变，最好改变，这个端口写在注册表里面，看看源代码就可以拉，最好改变不要使用注册表来放置，这样便于保密。
　　---------------------------------------------------------------
　　---------------------------------------------------------------
　　我倒，早就有过这种讨论了，scktsrvr demo 中 TSocketDispatcher 可以独立成一个控件，那样你爱放哪就哪了？
现在的问题是 TSocketDispatcher 不能检测到非法网络中断，比方客户机掉电/拔号断开连接/线路不稳定
---------------------------------------------------------------
　　-------------------------------------------
　　让它随server自动启动。（放到启动菜单）