EnableExplicit

Procedure Service_Pause(Name$)
 
  Protected hSCManager, hServ, lResult
  Protected *p.SERVICE_STATUS = AllocateMemory(SizeOf(SERVICE_STATUS))
 
  hSCManager = OpenSCManager_(#Null, #Null, #GENERIC_READ   | #SC_MANAGER_CONNECT)
  If hSCManager
    hServ = OpenService_(hSCManager, Name$, #GENERIC_EXECUTE)
    If hServ
      If *p
        lResult = ControlService_(hServ, #SERVICE_CONTROL_PAUSE, *p)
        FreeMemory(*p)
      EndIf
      CloseServiceHandle_(hServ)
    EndIf
    CloseServiceHandle_(hSCManager)
  EndIf
  If hServ And lResult
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

Service_Pause("...",1)
; IDE Options = PureBasic 4.60 Beta 2 (Windows - x86)
; CursorPosition = 23
; Folding = -
; EnableXP