Список сервисов

[Баламут]

В общем нужно задействовать функцию EnumServicesStatusEx. Где-то я запутался в переводе ее на Делфи. Может есть у кого пример ее использования? Свой код пока не выкладываю, но если будет интересно...

[Баламут]

В MSDN функция объявлена так:

BOOL WINAPI EnumServicesStatusEx(
  SC_HANDLE hSCManager,
  SC_ENUM_TYPE InfoLevel,
  DWORD dwServiceType,
  DWORD dwServiceState,
  LPBYTE lpServices,
  DWORD cbBufSize,
  LPDWORD pcbBytesNeeded,
  LPDWORD lpServicesReturned,
  LPDWORD lpResumeHandle,
  LPCTSTR pszGroupName
);

В моем переводе это выглядит как:

TEnumServicesStatusEx =
  function(hSCManager: THandle;//Хэндл менеджера процессов
           InfoLevel: DWORD;//Вид информации. В настоящее время только SC_STATUS_PROCESS_INFO
           dwServiceType: DWORD;//Драйверы или Win32 сервисы
           dwServiceState: DWORD;//Активные, неактивные, все
       var lpServices: byte;//Приемный буфер, указатель на массив байт
           cbBufSize: DWORD;//Размер буфера, на который указывает lpServices
       var pcbBytesNeeded: DWORD;//Требуемый размер буфера
       var lpServicesReturned: DWORD; //Количество служб
       var lpResumeHandle: DWORD; //Указатель на последнюю возвращ. службу
       var    pszGroupName: PChar{имя  группы загрузки. nil - все подряд}):boolean;



type TlpServices = array of byte;

var
   BufSize: DWORD;
    lpResumeHandle: DWORD;
    lpServicesReturned: DWORD;
    lpServices: TlpServices;
    bytesNeeded: DWORD;
    GroupName: PChar;

Вызов выглядит так:

hnd := LoadLibrary('advapi32.dll');
@OpenSCManager := GetProcAddress(hnd,'OpenSCManagerA');
@CloseServiceHandle := GetProcAddress(hnd, 'CloseServiceHandle');
@EnumServicesStatusEx := GetProcAddress(hnd, 'EnumServicesStatusExA');
hSCM := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

BufSize := 0;
lpResumeHandle := 0;

try
EnumServicesStatusEx(
hSCM,
0,
SERVICE_WIN32,
SERVICE_STATE_ALL,
lpServices[0],
BufSize,  
bytesNeeded,
lpServicesReturned,
lpResumeHandle,
nil);

Функция вызывается и что-то даже шуршит. Но спустя пару секунд вылетает Access Violation. Может ткнете меня носом, что я не так делаю?

[Баламут]

Неужели ни у кого нет идей? Я уже с ума схожу с этой ерундой...

[FaTaL]

Сообщение от Баламут

Неужели ни у кого нет идей? Я уже с ума схожу с этой ерундой...

Ты луш скажи что ты хочешь от этой функции и что ты вообще хочешь?

[Баламут]

Хочу получить список сервисов. И именно от этой функции.