服务程序的注册、启动、停止、删除

char *SNAME = "Service1";
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   SC_HANDLE   scm=OpenSCManager(NULL,NULL,
   SC_MANAGER_CREATE_SERVICE);
   if   (scm!=NULL){
   SC_HANDLE svc=CreateService(scm,
           SNAME, SNAME,//Service名字
           SERVICE_ALL_ACCESS,
           SERVICE_WIN32_OWN_PROCESS
                    |SERVICE_INTERACTIVE_PROCESS,
           SERVICE_AUTO_START,
           //以自动方式开始
           SERVICE_ERROR_IGNORE,
           "C:\\Documents and Settings\\Administrator\\My Documents\\RAD Studio\\Projects\\ServiceTest\\Debug\\project1.exe",   //Service本体程序路径，
           NULL,NULL,NULL,NULL,NULL);
       if   (svc!=NULL)
           CloseServiceHandle(svc);
       CloseServiceHandle(scm);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
   SC_HANDLE scm=OpenSCManager(NULL,NULL, SC_MANAGER_CONNECT);
   if (scm!=NULL){
           SC_HANDLE   svc=OpenService(scm, SNAME,
               SERVICE_ALL_ACCESS);
       if   (svc!=NULL){
          _SERVICE_STATUS ServiceStatus ;//= new LPSERVICE_STATUS();
           QueryServiceStatus(svc,&ServiceStatus);
if   (ServiceStatus.dwCurrentState==
SERVICE_RUNNING)//删除前，先停止此Service.
                                ControlService(svc,
SERVICE_CONTROL_STOP,&ServiceStatus);
                        DeleteService(svc);
                        CloseServiceHandle(svc);
//删除Service后，最好再调用CloseServiceHandle
                }
//以便立即从数据库中移走此条目。
              CloseServiceHandle(scm);
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
SC_HANDLE scm=OpenSCManager(NULL,NULL,SC_MANAGER_CONNECT);
        if   (scm!=NULL){
              SC_HANDLE svc=OpenService(scm, SNAME,SERVICE_START);
                if   (svc!=NULL){
                        StartService(svc,0,NULL);//开始Service
                        CloseServiceHandle(svc);
                }
                CloseServiceHandle(scm);
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
SC_HANDLE scm=OpenSCManager(NULL,NULL,
SC_MANAGER_ALL_ACCESS);
if   (scm!=NULL){
           SC_HANDLE     svc=OpenService(scm, SNAME,
SERVICE_STOP|SERVICE_QUERY_STATUS);
               if   (svc!=NULL){
               _SERVICE_STATUS ServiceStatus;
                       QueryServiceStatus(svc,&ServiceStatus);
                       if   (ServiceStatus.dwCurrentState==
SERVICE_RUNNING)
                                ControlService(svc,
SERVICE_CONTROL_STOP,&ServiceStatus);
                       CloseServiceHandle(svc);
                }
                CloseServiceHandle(scm);
       }
}
//---------------------------------------------------------------------------