EnableExplicit

Procedure Service_Start(Name$)
  Protected hSCManager, hServ, lResult
  hSCManager = OpenSCManager_(#Null, #Null, #GENERIC_READ	| #SC_MANAGER_CONNECT)
  If hSCManager
    hServ = OpenService_(hSCManager, Name$, #GENERIC_EXECUTE)
    If hServ
      lResult = StartService_(hServ, 0, #Null)
      CloseServiceHandle_(hServ)
    EndIf
    CloseServiceHandle_(hSCManager)
  EndIf
  If hServ And lResult
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

Service_Start("...")