Запущенные сервисы

[KoBRaAndrey]

Спасибо это то что мне нужно но:
при запуска ошибка:
Can not access service: 1394ohci.
Но окно запуститься, когда жму обновить следующая ошибка
Access violation at address 004C82FA in module 'SERVICE.exe'. Read of address 00000010.

[raxp]

при запуске или компиляции... ? версия delphi 6

[KoBRaAndrey]

Скачал вашу программу, при запуске:
Access violation at address 004610AE in module 'Service.exe'. Read of address 00000010.
Видимо не совместимость с windows 7, есть еще способы?

[raxp]

либо дорабатывать класс btNTSvcMan, вероятно в win7 функции экспорта либы advapi поменялись, либо советы выше.

[maxionans]

Если нужно только получить список сервисов, то хватит такого кода (работает и под Win7):

function GetServiceList(AList : TStrings) : Boolean;
var
  SCMan : Cardinal;
  Data : Pointer;
  Services : PEnumServiceStatus;
  Returned : Cardinal;
  Needed : Cardinal;
  ResumeHandle : Cardinal;
  I : Integer;
begin
  Assert( Assigned( AList ) );
  AList.Clear;

  Result := False;

  SCMan := OpenSCManager( nil, nil, GENERIC_READ );
  if SCMan = 0 then Exit;

  try
    Services := nil; ResumeHandle := 0;
    EnumServicesStatus(
      SCMan, SERVICE_WIN32, SERVICE_STATE_ALL,
      Services^, 0, Needed, Returned, ResumeHandle
    );

    if Needed > 0 then
      begin
        GetMem( Data, Needed * 2 );
        try
          Services := Data; ResumeHandle := 0;
          Result := EnumServicesStatus(
            SCMan, SERVICE_WIN32, SERVICE_STATE_ALL,
            Services^, Needed, Needed, Returned, ResumeHandle
          );
          if not Result then Exit;

          for I := 0 to Integer(Returned) - 1 do
          begin
            AList.Add( Services^.lpDisplayName );
            Inc( Services );
          end;
        finally
          FreeMem( Data );
        end;
      end;
  finally
    CloseServiceHandle( SCMan );
  end;
end;

[KoBRaAndrey]

А можно из этого текста узнать имя службы, или как найти службы?
Например находит - Диспетчер учетных записей
а нужно VaultSvc

[raxp]

AList.Add(Services^.lpServiceName + ' - ' + Services^.lpDisplayName);
...
а вообще, в классе btNTSvcMan структура более подробно описана.

[KoBRaAndrey]

Спасибо вам + не ставиться пишет:
Вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его raxp.
хоть я уже другим ставил..