EnableExplicit

Procedure Service_Exists(Name$)
  Protected hSCManager, hServ
  hSCManager = OpenSCManager_(#Null, #Null, #GENERIC_READ	| #SC_MANAGER_CONNECT)
  If hSCManager
    hServ = OpenService_(hSCManager, Name$, #GENERIC_READ)
    If hServ
      CloseServiceHandle_(hServ)
    EndIf
    CloseServiceHandle_(hSCManager)
  EndIf
  If hServ
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

If Service_Exists("ClipSrv")=1
  MessageRequester("","Dienst ist vorhanden.",0)
Else
  MessageRequester("","Dienst ist nicht vorhanden.",0)
EndIf