PureBasic Forums - English

Code: Select all

; For this code you need PBOSL
; If you dont know:PBOSL means "PureBasic Open-Source Libraries"
; you can get and involved on:
; http://pbosl.purearea.net
; Make a *.exe from this Code (e.g. = "Service.exe")
; Install and start the Service with calling your *.exe (e.g. = "Service.exe /install")
; now the Service ist Installed an runnnig,
; you can contol it by the Windows Servicesmanager (stop resume .....)
; to deinstall it call e.g. = ("Service.exe /remove")
; Original by Rings Edited by PAMKKKKK
; PB 3.93 13.August 2005
IncludeFile "PBOSL_NTService.pb" ; download at http://pbosl.purearea.net/index.php?site=Libs ( NTService )

Global ServiceDisplayName.s ; Global for use with the MyServiveFunction()

; BEGINNING MAIN RANGE FOR YOUR CHANGES >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

ServiceDisplayName = "A Service by Rings" ;The displayed name of the Service, in the SCM and sent To functions query its display name

Procedure MyServiveFunction()
  ; This Procedure Runs in the background as a Windows Service
  ; it shows a Nag-Window ca. all  800Milliseconds (nag.. nag... ;)
  Count = 800
  If OpenWindow(0, 0, 0, 282, 92 , "Purebasic Service Demo",  #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
    
    TextGadget(0, 10, 10, 260, 30, "Service : " + Chr(34) +  ServiceDisplayName  + Chr(34) +  " ist started", #PB_Text_Center)
    TextGadget(1, 70, 50, 130, 30, "Close Window in :", #PB_Text_Center)
    ;         EndIf
    
    Repeat
      EventID.l = WindowEvent()
      If EventID = #PB_Event_CloseWindow
        CloseWindow(0)
      EndIf
      Delay(1)
      Count -1
      If Count > 300
        If IsWindow(0)
          SetGadgetText(1,"Close Window in :" + Str(Count) + " ticks")
        EndIf
      EndIf
      If Count = 300
        CloseWindow(0)
      EndIf
      If Count = 1
        MyServiveFunction()
        ProcedureReturn
      EndIf
    ForEver
  EndIf
EndProcedure
; ENDING MAIN RANGE FOR YOUR CHANGES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Procedure NTNotify(Parameter)
  ; This Procedure Handels the Messages that are incomming from the Windows ServiceManager
  Select  Parameter
    Case 2
      MessageRequester("Info","Service is paused",0) ; <<<<<<<<<<<<< CHANGE THIS
    Case 3
      MessageRequester("Info","Service is resumed",0); <<<<<<<<<<<<< CHANGE THIS
  EndSelect
EndProcedure

;- Beginn the Main things....

; Set start Parameter >>>>

; get myself Path to call myself as a Service
PathToServiceEXE.s=Space(256)
GetModuleFileName_(GetModuleHandle_(0), @PathToServiceEXE, 256)
ServiceExplanation.s = "This is Service is a Nag-Window  from the PureBasic Service Demo by Mr. Rings"
ServiceName.s = "MyService" ; Only a Internal Name ; <<<<<<<<<<<<< CHANGE THIS
command.s=LCase(ProgramParameter())

If command = "/?" Or command = "/h" Or command = "help" Or command = "/help"
  command = "/help"
EndIf

; Selecting start Commands >>>>

Select command
  Case "/install"
    ; start types
    #SERVICE_BOOT_START     = $00000000
    #SERVICE_SYSTEM_START   = $00000001
    #SERVICE_AUTO_START     = $00000002
    #SERVICE_DEMAND_START   = $00000003
    #SERVICE_DISABLED       = $00000004
    ; Create the Service an run....
    Installservice(ServiceName,ServiceDisplayName,PathToServiceEXE,ServiceExplanation,#SERVICE_AUTO_START)
    End
  Case "/remove"
    RemoveService(ServiceName)
    End
  Case "/help"
    MessageRequester("Info","Start Service with " + Chr(34) +   PathToServiceEXE +" /install" + Chr(34) +  Chr(10) +"stop it with" + Chr(34) +   PathToServiceEXE + " /remove" + Chr(34),0)
    End
EndSelect

; Without Installservice() the Service command dos´nt run !
;NTService(ServiceName.s,@MyFunction())
Service(ServiceName.s,@MyServiveFunction());,@NTNotify()) ;the Notify is optional