程序代码：

.386
.model flat,stdcall
option casemap:none


include            windows.inc
include            user32.inc
include            kernel32.inc
include            advapi32.inc
includelib        Advapi32.lib
includelib        user32.lib
includelib        kernel32.lib

IDD_DLG1            equ 1000
IDC_BTN1            equ 1002
IDC_BTN2            equ 1003
IDC_LST1            equ 1001


            .data
hModule            dd        ?
szError            db        '出错',0
ScHandle        dd        ?
dwNeed            dd        ?
sr            dd        ?
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            .code
SetDlgService        proc    hwnd:dword
        
        pushad
        invoke LocalAlloc,LMEM_FIXED and LMEM_ZEROINIT,1024*64
        mov ebx,eax
        invoke OpenSCManager,NULL,NULL,SC_MANAGER_ALL_ACCESS
        mov ScHandle,eax
        .if !eax
            invoke MessageBox,NULL,offset szError,offset szError,MB_OK
        .endif
        invoke EnumServicesStatus,ScHandle,SERVICE_WIN32,SERVICE_STATE_ALL,ebx,1024*64,addr dwNeed,offset sr,NULL
        invoke GetLastError
        lea edi,[ebx]
        .while sr
            assume edi:ptr ENUM_SERVICE_STATUS
            invoke SendDlgItemMessage,hwnd,IDC_LST1,LB_ADDSTRING,0,[edi].lpServiceName
            add edi,sizeof ENUM_SERVICE_STATUS
            dec sr
        .endw
        popad
        ret

SetDlgService endp
DialogProc    proc    uses    edi esi edx,hwnd,msg,wparam,lparam

        mov eax,msg
        .if eax == WM_CLOSE
            invoke ExitProcess,0    
        .elseif eax == WM_COMMAND
            mov eax,wparam
            .if eax == IDC_BTN1
                push hwnd
                call SetDlgService
            .endif
        .endif
        mov eax,0
        ret
        
DialogProc    endp
start:
        invoke GetModuleHandle,0
        mov hModule,eax
        invoke DialogBoxParam,hModule,IDD_DLG1,NULL,offset DialogProc,NULL
        invoke ExitProcess,0
end start
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

程序代码：

void main(int argc,char ** argv){

    LPENUM_SERVICE_STATUS st;
    st=(LPENUM_SERVICE_STATUS)LocalAlloc(LPTR,64*1024);
    DWORD ret=0;
    DWORD size=0;
    HANDLE sc=OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS);
    
    EnumServicesStatus(sc,SERVICE_WIN32,SERVICE_STATE_ALL, (LPENUM_SERVICE_STATUS)st,1024*64,&size,&ret,NULL);
    

    for(int i=0;i<ret;i++){
        printf("%-20s%-50s",st[i].lpServiceName,st[i].lpDisplayName);
        switch(st[i].ServiceStatus.dwCurrentState){
        case(SERVICE_RUNNING):
            cout<<"running"<<endl;
            break;
        case(SERVICE_STOPPED):
            cout<<"stopped"<<endl;
            break;
            
        }
    }
    
}

程序代码：

.386
.Model Flat,Stdcall
Option Casemap: None

Include            Windows.inc
Include            User32.inc
Include            Kernel32.inc
Include            Advapi32.inc

Includelib        Advapi32.lib
Includelib        User32.lib
Includelib        Kernel32.lib

.Const
szError        db    '出错',0

.Code
Start    Proc
    Local    @dwRetNeed,@hSc,@dwSrvRet

    invoke    OpenSCManager,NULL,NULL,SC_MANAGER_ALL_ACCESS
    
    .if !eax
    
        invoke MessageBox,NULL,addr szError,addr szError,MB_OK
        ret
    
    .endif
    
    mov    @hSc,eax
    
    invoke    EnumServicesStatus,@hSc,SERVICE_WIN32,SERVICE_STATE_ALL,addr @dwRetNeed,sizeof DWORD,addr @dwRetNeed,addr @dwSrvRet,NULL

    invoke    LocalAlloc,LMEM_FIXED and LMEM_ZEROINIT,@dwRetNeed
    .if !eax
    
        invoke MessageBox,NULL,addr szError,addr szError,MB_OK
        ret
    
    .endif
    
    mov        ebx,eax
    
    invoke    EnumServicesStatus,@hSc,SERVICE_WIN32,SERVICE_STATE_ALL,ebx,@dwRetNeed,addr @dwRetNeed,addr @dwSrvRet,NULL
    mov        ecx,@dwSrvRet
    .While ecx
        
        mov        esi,DWORD ptr [ebx]
        mov        edi,DWORD ptr [ebx+4]
        invoke    MessageBox,0,edi,esi,0
        add        ebx,sizeof ENUM_SERVICE_STATUS
        dec        ecx
    .EndW
    invoke    CloseHandle,@hSc
    invoke    LocalFree,ebx
    ret

Start EndP

End Start