forum.clarionlife.net

Код: Выделить всё

CalcServiceStatus    FUNCTION
Computer             CSTRING(20)
SCMHandle            UNSIGNED
SrvHandle            UNSIGNED
SrvName              CSTRING(50)
DspName              CSTRING(50)
ExeFile              CSTRING(255)
SrvDb                CSTRING(50)
loc_i                LONG
loc_status           LIKE(SERVICE_STATUS)
FilesOpened          LONG
  CODE
 ExeFile = COMMAND('0')
 LOOP loc_i = LEN(CLIP(ExeFile)) TO 1 BY -1
  IF ExeFile[loc_i] = '\'
   ExeFile = ExeFile[1 : loc_i] & 'srvsita.exe'
   BREAK
  END
 END

 Computer=''
 GetModuleFileName(SYSTEM{PROP:AppInstance},ExeFile,SIZE(ExeFile))
 ExeFile=CLIP(ExeFile)&' /SRV='&PATH()
 SrvName=CLIP(EQU:SERVICENAME)
 DspName=CLIP(EQU:DISPLAYNAME)
 SrvDB='ServicesActive'
 SCMHandle=OpenSCManager(Computer,SrvDB,SC_MANAGER_CREATE_SERVICE+STANDARD_RIGHTS_REQUIRED)
 IF ~SCMHandle
  Message('Unable to open Service manager - check your rights','Error!',icon:hand)
  RETURN(1)
 END

 SrvHANDLE = OpenService(SCMHandle,SrvName,SERVICE_ALL_ACCESS)
 IF ~SrvHANDLE
!  Message('Failed to Open Service','Error!',icon:hand)
  Do Return1
 END

 IF ~QueryServiceStatus(SrvHANDLE,ADDRESS(loc_status))
  Message('Failed to QueryServiceStatus','Error!',icon:hand)
  Do Return1
 END

 Do Return0

 RETURN(0)
Return1 ROUTINE
 Do CloseAll
 RETURN(1)

Return0 ROUTINE
 Do CloseAll
 RETURN(CHOOSE(loc_status.dwCurrentState = SERVICE_RUNNING,0,1))

CloseAll    ROUTINE
 IF SrvHANDLE
  CloseServiceHandle(SrvHANDLE)
 END
 IF SCMHandle
  CloseServiceHandle(SCMHandle)
 END

Код: Выделить всё

RUN('command.com /c sc.exe query ALG > d:\sc.txt')