为何我写的SERVICE不能用命令行进行控制？

Question

用APIuses WinSvc;var 
  Service_Hand, SC_Hand : SC_HANDLE;
  status : TServiceStatus;
  p:pointer;
begin
//....
SC_Hand :=OpenSCManager(nil, nil, GENERIC_EXECUTE);
Service_hand:=OpenService(SC_Hand, '服务名', GENERIC_EXECUTE+GENERIC_READ+GENERIC_WRITE);p:=nil;
//启动
StartService(Service_hand, 0, p);//停止
ControlService(Service_hand,SERVICE_CONTROL_STOP,status);end;

Answer 1

to Crob(我干嘛这么帅):
诚心请教，指点一下吧。

Answer 2

我希望得到的效果是在命令行可以进行net start/stop myservice操作，你给的代码是在程序中启动/停止服务的吧？

Answer 3

奇怪，我什么也没改过居然可以net start myservice了。
虽然没用Crob(我干嘛这么帅)的方法，但分还是要给的。