The simplest way to craete a service...

[Olish]

Hello everybody !

I'd like to register my EXE as a Windows Service as simply as possible. Can someone tell me how could I do please ?

Thank you for your help.

Olivier, from France.

PS : Sorry for the title > "create"

Edited July 10, 2006 by Olish

[Xenobiologist]

HI,

maybe this helps out. Never tested!

Func _SrvAny($service, $fullpath, $hidden = 0)
; Adds a program, as a windows service.
; Requires $instsrv and $srvany to be assigned, full paths.
; e.g. _SrvAny ( 'ServiceName', 'FullPath_to_the_program' )
    Local $instsrv = @WindowsDir & '\System32\Instsrv.exe'
    Local $srvany = @WindowsDir & '\System32\SrvAny.exe'
    If FileExists($instsrv) And FileExists($srvany) Then
        RunWait($instsrv & ' ' & $service & ' "' & $srvany & '"', '', @SW_HIDE)
        Local $key = 'HKLM\SYSTEM\CurrentControlSet\Services\' & $service
        If RegRead($key, 'DisplayName') Then
            If $hidden Then RegWrite($key & '\Parameters', 'AppParameters', 'Reg_sz', '/hidden')
            Return RegWrite($key & '\Parameters', 'Application', 'Reg_sz', $fullpath)
        EndIf
    EndIf
EndFunc

So long,

Mega

[Olish]

Thank you for your help th.meger .

And for unregistering the service, may I delete corresponding registry keys ?

[MHz]

Thank you for your help th.meger .

And for unregistering the service, may I delete corresponding registry keys ?

Just use SC delete "servicename"