MASM32编程获取系统服务列表及其状态

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; FileName: List_Svc2.asm
; Function: Demo the way to list system services and their status
;   Author: Purple Endurer
;   DevEmv: Win XP SP2, MASM32
;
; LOG
; ---------------------------------------------------
; 2006-11-17    Created!
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

.386
.model  flat,  stdcall
option  casemap: none
include /masm32/ include/windows.inc

include /masm32/ include/user32.inc
includelib /masm32/ lib/user32.lib

include /masm32/ include/kernel32.inc
includelib /masm32/ lib/kernel32.lib

include /masm32/ include/advapi32.inc
includelib /masm32/ lib/advapi32.lib


WinMain  PROTO : DWORD, : DWORD, : DWORD, : DWORD
ResizeConctrol  PROTO
ShowServiceInfo  PROTO : dword, : dword, : dword
ShowSvcStatusInfo  PROTO : dword
ShowSvcData  PROTO : dword, : dword, : dword

;.const
IDC_BtnEnum      equ 103
IDC_EdtFileSpec  equ 105
IDC_EdtVerInfo   equ 107

c_GrpSvcTypeTop      equ 5
c_GrpSvcTypeLeft     equ 2

c_ChkBtnSvcWin32Top      equ c_GrpSvcTypeTop+15
c_ChkBtnSvcWin32Left     equ c_GrpSvcTypeLeft+5
c_ChkBtnSvcWin32Width    equ 150
c_ChkBtnSvcWin32Height   equ 15

c_ChkBtnSvcDrvTop      equ c_ChkBtnSvcWin32Top+c_ChkBtnSvcWin32Height+5
c_ChkBtnSvcDrvLeft     equ c_ChkBtnSvcWin32Left
c_ChkBtnSvcDrvWidth    equ c_ChkBtnSvcWin32Width
c_ChkBtnSvcDrvHeight   equ c_ChkBtnSvcWin32Height

c_GrpSvcTypeWidth    equ c_ChkBtnSvcWin32Width+10
c_GrpSvcTypeHeight   equ c_ChkBtnSvcDrvTop+c_ChkBtnSvcDrvHeight+5


c_GrpSvcStateTop      equ c_GrpSvcTypeTop
c_GrpSvcStateLeft     equ c_GrpSvcTypeLeft+c_GrpSvcTypeWidth+10

c_ChkBtnSvcActTop      equ c_GrpSvcStateTop+15
c_ChkBtnSvcActLeft     equ c_GrpSvcStateLeft+5
c_ChkBtnSvcActWidth    equ 150
c_ChkBtnSvcActHeight   equ 15

c_ChkBtnSvcInActTop      equ c_ChkBtnSvcActTop+c_ChkBtnSvcActHeight+5
c_ChkBtnSvcInActLeft     equ c_ChkBtnSvcActLeft
c_ChkBtnSvcInActWidth    equ c_ChkBtnSvcActWidth
c_ChkBtnSvcInActHeight   equ c_ChkBtnSvcActHeight

c_GrpSvcStateWidth    equ c_ChkBtnSvcActWidth+10
c_GrpSvcStateHeight   equ c_ChkBtnSvcInActTop+c_ChkBtnSvcInActHeight+5

c_BtnShowTop     equ c_GrpSvcTypeTop
c_BtnShowLeft    equ (c_GrpSvcStateLeft+c_GrpSvcStateWidth+10)
c_BtnShowWidth   equ 70
c_BtnShowHeight  equ 25

c_EdtSvrInfoLeft     equ 2
c_EdtSvrInfoTop      equ c_GrpSvcTypeTop+c_GrpSvcTypeHeight+5
c_EdtSvrInfoHeight   equ 165

c_WinWidth       equ c_BtnShowLeft+c_BtnShowWidth + 10     ;c_EdtSvrInfoLeft + c_EdtSvrInfoWidth + 2
c_WinHeight      equ c_EdtSvrInfoTop + c_EdtSvrInfoHeight + 45

c_EdtSvrInfoWidth    equ c_WinWidth-8-c_EdtSvrInfoLeft

m_CatStr  MACRO szStr: REQ
     invoke SendMessage, g_hEditSvrInfo, EM_REPLACESEL,  FALSE, szStr
ENDM

m_GoNextLine  MACRO
     invoke SendMessage, g_hEditSvrInfo, EM_REPLACESEL,  FALSE,  ADDR g_szCR
ENDM

m_MsgBox  MACRO lpszMsg: REQ, dwIcon: REQ
     invoke MessageBox, g_hWndMain, lpszMsg,  OFFSET g_szAppName_cn, dwIcon
ENDM


.data
g_szClsName  db  "ListSvrCls", 0
g_szAppName_cn  db  "系统服务列表", 0
g_szEditCls  db  "EDIT", 0
g_szBtnCls   db  "button", 0
g_szBtnEnumSvc_cn   db  "&E 枚举", 0
g_szSERVICE_WIN32     db  "SERVICE_WIN32", 0
g_szSERVICE_DRIVER  db  "SERVICE_DRIVER", 0
g_szSERVICE_ACTIVE  db  "SERVICE_ACTIVE", 0
g_szSERVICE_INACTIVE  db  "SERVICE_INACTIVE", 0
g_szChkSvrTypeFirst_cn  db  "请先选择要枚举的"
g_szServiceType_cn  db  "服务类型：", 0
g_szChkSvrStateFirst_cn  db  "请先选择要枚举的"
g_szServiceState_cn  db  "服务状态：", 0


.data?
g_hInstance    HINSTANCE ?
g_hWndMain    HANDLE ?
g_hEditFileSpec    HANDLE ?
g_hBtnShow    HANDLE ?
g_hEditSvrInfo    HANDLE ?
g_szFileSpec    db 256 dup (?)
g_hGrpServiceType HANDLE ?
g_hChkBtnSvcWin32 HANDLE ?
g_hChkBtnSvcDrv HANDLE ?
g_hGrpServiceState HANDLE ?
g_hChkBtnSvcAct HANDLE ?
g_hChkBtnSvcInAct HANDLE ?
g_dwServiceType  dword ?
g_dwServiceState  dword ?


.code
start:
     invoke GetModuleHandle, NULL
     mov    g_hInstance,  eax
     invoke WinMain, g_hInstance, NULL, NULL, SW_SHOWDEFAULT
     invoke ExitProcess,  eax


WinMain  proc hInst:  DWORD, hPrevInst:  DWORD, CmdLine:  DWORD, CmdShow:  DWORD
     LOCAL wc: WNDCLASSEX
     LOCAL msg: MSG
     LOCAL hwnd: HWND

     mov  wc.cbSize, SIZEOF WNDCLASSEX
     mov  wc.style, CS_HREDRAW  or CS_VREDRAW
     mov  wc.lpfnWndProc,  OFFSET WndProc
     mov  wc.cbClsExtra, NULL
     mov  wc.cbWndExtra, NULL
     mov   eax, g_hInstance
     mov  wc.hInstance,  eax
     mov  wc.hbrBackground, COLOR_APPWORKSPACE
     mov  wc.lpszMenuName, NULL
     mov  wc.lpszClassName,  OFFSET g_szClsName
     invoke LoadIcon, NULL, IDI_APPLICATION
     mov   wc.hIcon,  eax
     mov   wc.hIconSm,  eax
     invoke LoadCursor, NULL, IDC_ARROW
     mov   wc.hCursor,  eax
     invoke RegisterClassEx,  addr wc
     invoke CreateWindowEx, WS_EX_TOPMOST,  ADDR g_szClsName,/
             ADDR g_szAppName_cn, WS_OVERLAPPEDWINDOW+WS_VISIBLE,/
            CW_USEDEFAULT, CW_USEDEFAULT, c_WinWidth, c_WinHeight,/
            NULL, NULL, hInst, NULL
     mov hwnd,  eax
     .while  TRUE
         invoke GetMessage,  ADDR msg, NULL, 0, 0
         .BREAK  .IF (! eax)

         ;--- process keystrokes directly in the message loop
         .if msg.message == WM_SYSKEYUP
             .if msg.wParam == VK_E          ; Alt + E
                 invoke PostMessage, hwnd, WM_COMMAND, IDC_BtnEnum, BM_CLICK
             .endif
         .endif
         ; ------------------------------------------------
         invoke TranslateMessage,  ADDR msg
         invoke DispatchMessage,  ADDR msg
     .endw
     mov  eax, msg.wParam
     ret
WinMain  endp


WndProc  proc hWnd: HWND, uMsg: UINT, wParam: WPARAM, lParam: LPARAM
     LOCAL rect: RECT
     LOCAL hdc:  DWORD

     .if uMsg==WM_CREATE
         mov  eax, hWnd
         mov g_hWndMain,  eax

         ;--- Create enum button
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  addr g_szBtnEnumSvc_cn,/
            WS_CHILD+WS_VISIBLE, c_BtnShowLeft, c_BtnShowTop, c_BtnShowWidth, c_BtnShowHeight,/
            hWnd, IDC_BtnEnum, g_hInstance, NULL
         mov g_hBtnShow,  eax

         ;--- Create group
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  offset g_szServiceType_cn,/
            WS_CHILD+WS_VISIBLE+BS_GROUPBOX, c_GrpSvcTypeLeft, c_GrpSvcTypeTop, /
            c_GrpSvcTypeWidth, c_GrpSvcTypeHeight,/
            hWnd, NULL, g_hInstance, NULL
         mov g_hGrpServiceType,  eax

         ;--- Create autocheck button
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  offset g_szSERVICE_WIN32,/
            WS_CHILD+WS_VISIBLE+BS_AUTOCHECKBOX, c_ChkBtnSvcWin32Left, c_ChkBtnSvcWin32Top,/
            c_ChkBtnSvcWin32Width, c_ChkBtnSvcWin32Height,/
            hWnd, NULL, g_hInstance, NULL
         mov g_hChkBtnSvcWin32,  eax

         ;--- Create autocheck button
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  offset g_szSERVICE_DRIVER,/
            WS_CHILD+WS_VISIBLE+BS_AUTOCHECKBOX, c_ChkBtnSvcDrvLeft, c_ChkBtnSvcDrvTop,/
            c_ChkBtnSvcDrvWidth, c_ChkBtnSvcDrvHeight,/
            hWnd, NULL, g_hInstance, NULL
         mov g_hChkBtnSvcDrv,  eax

         ;--- Create group
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  offset g_szServiceState_cn,/
            WS_CHILD+WS_VISIBLE+BS_GROUPBOX, c_GrpSvcStateLeft, c_GrpSvcStateTop,/
            c_GrpSvcStateWidth, c_GrpSvcStateHeight,/
            hWnd, NULL, g_hInstance, NULL
         mov g_hGrpServiceState,  eax

         ;--- Create autocheck button
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  offset g_szSERVICE_ACTIVE,/
            WS_CHILD+WS_VISIBLE+BS_AUTOCHECKBOX, c_ChkBtnSvcActLeft, c_ChkBtnSvcActTop,/
            c_ChkBtnSvcActWidth, c_ChkBtnSvcActHeight,/
            hWnd, NULL, g_hInstance, NULL
         mov g_hChkBtnSvcAct,  eax

         ;--- Create autocheck button
         invoke CreateWindowEx, NULL,  addr g_szBtnCls,  offset g_szSERVICE_INACTIVE,/
            WS_CHILD+WS_VISIBLE+BS_AUTOCHECKBOX, c_ChkBtnSvcInActLeft, c_ChkBtnSvcInActTop,/
            c_ChkBtnSvcInActWidth, c_ChkBtnSvcInActHeight,/
            hWnd, NULL, g_hInstance, NULL
         mov g_hChkBtnSvcInAct,  eax

         ;--- Create services info editbox
         invoke CreateWindowEx, NULL,  addr g_szEditCls, NULL,/
            WS_CHILD+WS_VISIBLE+ES_MULTILINE+WS_HSCROLL+WS_VSCROLL,/
            c_EdtSvrInfoLeft, c_EdtSvrInfoTop, c_EdtSvrInfoWidth, c_EdtSvrInfoHeight,/
            hWnd, IDC_EdtVerInfo, g_hInstance, NULL
         mov g_hEditSvrInfo,  eax

     .elseif uMsg==WM_COMMAND
         .if lParam!=0
             mov  eax, wParam
             .IF  ax==IDC_BtnEnum
                 shr  eax, 16 
                 .if  ax==BN_CLICKED
                     xor  eax,  eax
                     mov g_dwServiceType,  eax
                     invoke SendMessage, g_hChkBtnSvcWin32, BM_GETCHECK,  eax,  eax
                     .if  eax==BST_CHECKED
                         or g_dwServiceType, SERVICE_WIN32
                     .endif
                     xor  eax,  eax
                     invoke SendMessage, g_hChkBtnSvcDrv, BM_GETCHECK,  eax,  eax
                     .if  eax==BST_CHECKED
                         or g_dwServiceType, SERVICE_DRIVER
                     .endif
                     cmp g_dwServiceType, 0
                     jne @F
                    m_MsgBox  OFFSET g_szChkSvrTypeFirst_cn, NULL
                     xor  eax,  eax
                     jz @BtnClkEnd
            @@:
                     xor  eax,  eax
                     mov g_dwServiceState,  eax
                     invoke SendMessage, g_hChkBtnSvcAct, BM_GETCHECK,  eax,  eax
                     .if  eax==BST_CHECKED
                         or g_dwServiceState, SERVICE_ACTIVE
                     .endif
                     xor  eax,  eax
                     invoke SendMessage, g_hChkBtnSvcInAct, BM_GETCHECK,  eax,  eax
                     .if  eax==BST_CHECKED
                         or g_dwServiceState, SERVICE_INACTIVE
                     .endif
                     cmp g_dwServiceState, 0
                     jne @F
                    m_MsgBox  OFFSET g_szChkSvrStateFirst_cn, NULL
                     xor  eax,  eax
                     jz @BtnClkEnd
                @@:
                     invoke ShowServiceInfo, SC_MANAGER_ENUMERATE_SERVICE, g_dwServiceType, g_dwServiceState
                @BtnClkEnd:
                 .endif
             .ENDIF
         .endif
     .elseif uMsg==WM_DESTROY
         invoke PostQuitMessage, NULL
     .elseif uMsg==WM_SIZE
         invoke ResizeConctrol
         xor  eax,  eax
         jz @F
     .else
@@:
         invoke DefWindowProc, hWnd, uMsg, wParam, lParam        
         ret
     .endif
     xor  eax,  eax
     ret
WndProc  endp

ResizeConctrol  PROC
     LOCAL st_Rect: RECT

     invoke GetClientRect, g_hWndMain,  ADDR st_Rect

     ;--- Resize the Enum button
     mov  eax, st_Rect.right
     sub  eax, 5+c_BtnShowWidth
     push  eax
     invoke MoveWindow, g_hBtnShow,  eax, c_BtnShowTop, c_BtnShowWidth, c_BtnShowHeight,  TRUE

     ;--- Resize the service editbox
     mov  eax, st_Rect.right
     sub  eax, 5

     mov  edi, st_Rect.bottom
     sub  edi, 70

     invoke MoveWindow, g_hEditSvrInfo, c_EdtSvrInfoLeft, c_EdtSvrInfoTop,  eax,  edi,  TRUE

     ret
ResizeConctrol  ENDP


ShowServiceInfo  PROC dwDesiredAccess:  dword, dwServiceType:  dword, dwServiceState:  dword
     LOCAL hSCM, hResume, hMem: HANDLE
     LOCAL dwBytesNeeded, dwServiceNum:  dword
     LOCAL lpstCurSvr:  dword
     LOCAL Buf1[22]:  byte

     xor  eax,  eax
     jz @F
    g_szERROR_ACCESS_DENIED  db  "The requested access was denied.", 0
    g_szERROR_DATABASE_DOES_NOT_EXIST  db  "The specified database does not exist.", 0
    g_szERROR_INVALID_PARAMETER  db  "A parameter that was specified is invalid.", 0
    g_szERROR_INVALID_HANDLE  db  "The specified handle is invalid.", 0
    g_szERROR_MORE_DATA     db  "There are more service entries than would fit into the lpServices buffer.", 0
    g_szFailGlobalAlloc  db  "Fail to GlobalAlloc", 0
    g_szOpenSCManager  db  "Call OpenSCManager", 0
    g_szEnumServicesStatus  db  "Call EnumServicesStatus", 0
    g_szBlkOK  db  " OK!"
    g_szCR  db 0dh, 0ah, 0
    g_sz3hyphens  db  "---", 0
    g_szFmtTotal  db  "Total: %d", 0
@@:
      ; SC_HANDLE OpenSCManager(
      ;     LPCTSTR lpMachineName,    // pointer to machine name string 
      ;     LPCTSTR lpDatabaseName,    // pointer to database name string 
      ;     DWORD dwDesiredAccess     // type of access 
      ; ); 
    m_CatStr  OFFSET g_szOpenSCManager
     invoke OpenSCManager, NULL, NULL, dwDesiredAccess
     cmp  eax, NULL
     jne @F
     invoke GetLastError
     .if  eax==ERROR_ACCESS_DENIED
         mov  eax,  OfFSET g_szERROR_ACCESS_DENIED
     .elseif  eax==ERROR_DATABASE_DOES_NOT_EXIST
         mov  eax,  OFFSET g_szERROR_DATABASE_DOES_NOT_EXIST
     .elseif  eax==ERROR_INVALID_PARAMETER
         mov  eax,  OFFSET g_szERROR_INVALID_PARAMETER
     .else
         mov  eax, NULL
     .endif
    m_CatStr  eax
     ret
@@:
     mov hSCM,  eax
    m_CatStr  OFFSET g_szBlkOK
    m_CatStr  OFFSET g_szEnumServicesStatus

      ; BOOL EnumServicesStatus(
      ;     SC_HANDLE hSCManager,    // handle to service control manager database
      ;     DWORD dwServiceType,    // type of services to enumerate
      ;     DWORD dwServiceState,    // state of services to enumerate
      ;     LPENUM_SERVICE_STATUS lpServices,    // pointer to service status buffer
      ;     DWORD cbBufSize,    // size of service status buffer
      ;     LPDWORD pcbBytesNeeded,    // pointer to variable for bytes needed
      ;     LPDWORD lpServicesReturned,    // pointer to variable for number returned
      ;     LPDWORD lpResumeHandle     // pointer to variable for next entry
      ; );
     mov hResume, 0
     invoke EnumServicesStatus, hSCM, dwServiceType, dwServiceState,/
        NULL, NULL,  ADDR dwBytesNeeded,/
         ADDR dwServiceNum,   ADDR hResume
     invoke GetLastError
     cmp  eax, ERROR_MORE_DATA
     je @F
@EnumServicesStatusErr:
     .if  eax==ERROR_ACCESS_DENIED
         mov  eax,  OfFSET g_szERROR_ACCESS_DENIED
     .elseif  eax==ERROR_INVALID_HANDLE
         mov  eax,  OFFSET g_szERROR_INVALID_HANDLE
     .elseif  eax==ERROR_INVALID_PARAMETER
         mov  eax,  OFFSET g_szERROR_INVALID_PARAMETER
     .elseif  eax==ERROR_MORE_DATA
         mov  eax,  OFFSET g_szERROR_MORE_DATA
     .else
         mov  eax, NULL
     .endif
    m_CatStr  eax
     invoke CloseServiceHandle, hSCM
     ret
@@:    
    m_CatStr  OFFSET g_szBlkOK
    m_CatStr  OFFSET g_szEnumServicesStatus
     invoke GlobalAlloc, GMEM_ZEROINIT, dwBytesNeeded  
     cmp  eax, NULL
     jnz @F
    m_CatStr  OFFSET g_szFailGlobalAlloc
     invoke CloseServiceHandle, hSCM
     ret
@@:
     mov hMem,  eax
    m_CatStr  OFFSET g_szBlkOK
     mov hResume, 0
     invoke EnumServicesStatus, hSCM, dwServiceType, dwServiceState,/
        hMem, dwBytesNeeded,  ADDR dwBytesNeeded,/
         ADDR dwServiceNum,   ADDR hResume
     or  eax,  eax
     jnz @F
     invoke GetLastError
     push  eax
     invoke GlobalFree, hMem
     pop  eax
     jmp @EnumServicesStatusErr
@@:
    m_CatStr  OFFSET g_sz3hyphens
    m_CatStr  OFFSET g_szAppName_cn
    m_CatStr  OFFSET g_sz3hyphens
     invoke wsprintf,  ADDR Buf1,  OFFSET g_szFmtTotal, dwServiceNum
    m_CatStr  ADDR Buf1
    m_GoNextLine
     ;push edx
     mov  edx, hMem
     xor  eax,  eax
     .while  eax < dwServiceNum
         push  eax
         mov lpstCurSvr,  edx

        m_CatStr (ENUM_SERVICE_STATUS  ptr [ edx]).lpServiceName
        m_CatStr  OFFSET g_sz3hyphens
         mov  edx, lpstCurSvr
        m_CatStr (ENUM_SERVICE_STATUS  ptr [ edx]).lpDisplayName
        m_GoNextLine
         mov  edx, lpstCurSvr
         lea  eax, (ENUM_SERVICE_STATUS  ptr [ edx]).ServiceStatus
         invoke ShowSvcStatusInfo,  eax
        m_GoNextLine
         mov  edx, lpstCurSvr
         add  edx, SIZEOF ENUM_SERVICE_STATUS 
         pop  eax
         inc  eax
     .endw
     ;pop edx
     invoke GlobalFree, hMem
     invoke CloseServiceHandle, hSCM
     ret
ShowServiceInfo  ENDP


ShowSvcStatusInfo  PROC lpstSrvStatus:  dword
     xor  eax,  eax
     jz @F
     ;--- type
    g_szSERVICE_WIN32_OWN_PROCESS  db  "SERVICE_WIN32_OWN_PROCESS", 0
    g_szSERVICE_WIN32_SHARE_PROCESS  db  "SERVICE_WIN32_SHARE_PROCESS", 0
    g_szSERVICE_KERNEL_DRIVER  db  "SERVICE_KERNEL_DRIVER", 0
    g_szSERVICE_FILE_SYSTEM_DRIVER     db  "SERVICE_FILE_SYSTEM_DRIVER", 0
    g_szSERVICE_INTERACTIVE_PROCESS  db  "SERVICE_INTERACTIVE_PROCESS", 0
    g_szSvcTypeArr   dword SERVICE_WIN32_OWN_PROCESS,  OFFSET g_szSERVICE_WIN32_OWN_PROCESS
                     dword SERVICE_WIN32_SHARE_PROCESS,  OFFSET g_szSERVICE_WIN32_SHARE_PROCESS
                     dword SERVICE_KERNEL_DRIVER,  OFFSET g_szSERVICE_KERNEL_DRIVER
                     dword SERVICE_FILE_SYSTEM_DRIVER,  OFFSET g_szSERVICE_FILE_SYSTEM_DRIVER
                     dword SERVICE_INTERACTIVE_PROCESS,  OFFSET g_szSERVICE_INTERACTIVE_PROCESS
    c_SvcTypeArrLen  equ ($ - ( offset g_szSvcTypeArr)) / 8
     ;--- status
    g_szSERVICE_STOPPED     db  "SERVICE_STOPPED", 0
    g_szSERVICE_START_PENDING     db  "SERVICE_START_PENDING", 0
    g_szSERVICE_STOP_PENDING  db  "SERVICE_STOP_PENDING", 0
    g_szSERVICE_RUNNING     db  "SERVICE_RUNNING", 0
    g_szSERVICE_CONTINUE_PENDING  db  "SERVICE_CONTINUE_PENDING", 0
    g_szSERVICE_PAUSE_PENDING     db  "SERVICE_PAUSE_PENDING", 0
    g_szSERVICE_PAUSED  db  "SERVICE_PAUSED", 0

    g_szSvcStatusArr     dword SERVICE_STOPPED,  OFFSET g_szSERVICE_STOPPED
                         dword SERVICE_START_PENDING,  OFFSET g_szSERVICE_START_PENDING
                         dword SERVICE_STOP_PENDING,  OFFSET g_szSERVICE_STOP_PENDING
                         dword SERVICE_RUNNING,  OFFSET g_szSERVICE_RUNNING
                         dword SERVICE_CONTINUE_PENDING,  OFFSET g_szSERVICE_CONTINUE_PENDING
                         dword SERVICE_PAUSE_PENDING,  OFFSET g_szSERVICE_PAUSE_PENDING
                         dword SERVICE_PAUSED,  OFFSET g_szSERVICE_PAUSED
    c_SvcStatusArrLen  equ ($ - ( offset g_szSvcStatusArr)) / 8

     ;---
    g_szControlsAccepted_cn  db  "可受控制：", 0
    g_szSERVICE_ACCEPT_STOP  db  "SERVICE_ACCEPT_STOP", 0
    g_szSERVICE_ACCEPT_PAUSE_CONTINUE  db  "SERVICE_ACCEPT_PAUSE_CONTINUE", 0
    g_szSERVICE_ACCEPT_SHUTDOWN  db  "SERVICE_ACCEPT_SHUTDOWN", 0
    g_szSvcAccCtlArr     dword SERVICE_ACCEPT_STOP,  OFFSET g_szSERVICE_ACCEPT_STOP
                         dword SERVICE_ACCEPT_PAUSE_CONTINUE,  OFFSET g_szSERVICE_ACCEPT_PAUSE_CONTINUE
                         dword SERVICE_ACCEPT_SHUTDOWN,  OFFSET g_szSERVICE_ACCEPT_SHUTDOWN
    c_SvcAccCtlArrLen  equ ($ - ( offset g_szSvcAccCtlArr)) / 8
@@:

  ; typedef struct _SERVICE_STATUS { // ss  
  ;     DWORD dwServiceType; 
  ;     DWORD dwCurrentState; 
  ;     DWORD dwControlsAccepted; 
  ;     DWORD dwWin32ExitCode; 
  ;     DWORD dwServiceSpecificExitCode; 
  ;     DWORD dwCheckPoint; 
  ;     DWORD dwWaitHint; 
  ; } SERVICE_STATUS, *LPSERVICE_STATUS; 
     ;--- ServiceType
    m_CatStr  OFFSET g_szServiceType_cn
     mov  eax, lpstSrvStatus
     mov  eax, (SERVICE_STATUS  ptr [ eax]).dwServiceType
     invoke ShowSvcData,  eax,  OFFSET g_szSvcTypeArr, c_SvcTypeArrLen
    m_GoNextLine

     ;--- Service State
    m_CatStr  OFFSET g_szServiceState_cn
     mov  eax, lpstSrvStatus
     mov  eax, (SERVICE_STATUS  ptr [ eax]).dwCurrentState
     invoke ShowSvcData,  eax,  OFFSET g_szSvcStatusArr, c_SvcStatusArrLen
    m_GoNextLine

     ;--- ControlsAccepted
    m_CatStr  OFFSET g_szControlsAccepted_cn
     mov  eax, lpstSrvStatus
     mov  eax, (SERVICE_STATUS  ptr [ eax]).dwControlsAccepted
     invoke ShowSvcData,  eax,  OFFSET g_szSvcAccCtlArr, c_SvcAccCtlArrLen
    m_GoNextLine

     ret
ShowSvcStatusInfo  ENDP


ShowSvcData  PROC dwSvcData: DWORD, lpSvcDataArr:  DWORD, dwDataArrLen:  DWORD
     LOCAL lpPos:  dword
     LOCAL dwIndex:  dword

     mov  eax, lpSvcDataArr
     mov dwIndex, 0
@ShowSvcDataLoop1:
     mov  edx, dwIndex
     cmp  edx, dwDataArrLen
     je @ShowSvcDataRet
     mov lpPos,  eax
     mov  eax, [ eax]
     cmp dwSvcData,  eax
     jne @F
     mov  eax, lpPos
     add  eax, 4
     mov  eax, [ eax]
     or  eax,  eax
     jnz @ShowSvcData
     ;jmp @ShowSvcData
@@:
     inc dwIndex
     mov  eax, lpPos
     add  eax, 8
     or  eax,  eax
     jnz @ShowSvcDataLoop1
@ShowSvcData:
    m_CatStr  eax
@ShowSvcDataRet:
     ret
ShowSvcData  ENDP

end