ÇóÖúC·­ÒëDelphi ¼±¼±£¡£¡£¡

Ò»¸öÈ¡·þÎñPIDµÄCÓïÑÔ£¡

/////////////////////////////////////////////////////////
// Get PID of Service Process
// hScMgt ΪOpenSCManager()µÄ·µ»ØÖµ
// lpSrvNameÊÇ·þÎñÃû
DWORD GetServicePid(SC_HANDLE hScMgt, LPCTSTR lpSrvName)
{
    SC_HANDLE                hSrv;
    SERVICE_STATUS_PROCESS    InfoLevel;
    DWORD                    dwBytesNeed;

    hSrv = OpenService(hScMgt, lpSrvName, SERVICE_QUERY_STATUS);
    if (hSrv == NULL)
    {
        printf("[-] OpenService() Error: %d\n", GetLastError());
        return 0;
    }
    if(!QueryServiceStatusEx(hSrv, SC_STATUS_PROCESS_INFO, (LPBYTE) &InfoLevel, sizeof(SERVICE_STATUS_PROCESS), &dwBytesNeed))
    {
        printf("[-] QueryServiceStatusEx() Error: %d\n", GetLastError());
        CloseServiceHandle(hSrv);
        return 0;
    }
    CloseServiceHandle(hSrv);
    return    InfoLevel.dwProcessId;
}

---

ËûÄǸöº¯ÊýдµÃ²»ºÃÓã¬ÎÒÉÔ΢¸ÄÁË£¬²ÎÊýΪ·þÎñÃû
Delphi(Pascal) code