Сервисы Windows

[Афанасий[vedma]]

Помогите мне создать програмку - аналог services.msc

[Stilet]

Что она должна делать? Список сервисов и их управление?

[Афанасий[vedma]]

Она должна лишь показывать сервисы и все...без никаких редактирований

[Баламут]

Тут, например

[JTG]

Для ленивых - WMI (не только список служб, можно быстро получить любую информацию о системе, подставляя в запрос SELECT <поле> FROM <класс>), но этот механизм работает довольно медленно и сам зависит от службы WMI.

program DumpServicesWMI;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, ActiveX, ComObj, Variants;

function StrToOem(const AnsiStr: AnsiString): AnsiString;
begin
  SetLength(Result, Length(AnsiStr));
  if Result <> '' then CharToOemBuffA(PAnsiChar(AnsiStr), PAnsiChar(Result), Length(Result));
end;

function GetWMIObject(const objectName: String): IDispatch;
var
  chEaten: Integer;
  BindCtx: IBindCtx;
  Moniker: IMoniker;
begin
  OleCheck(CreateBindCtx(0, bindCtx));
  OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker));
  OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result));
end;

procedure DumpServices;
var
  objWMIService, colItems, colItem: OLEVariant;
  oEnum: IEnumVariant;
  iValue: LongWord;
begin
  objWMIService := GetWMIObject('winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2');
  colItems      := objWMIService.ExecQuery('SELECT * FROM Win32_Service','WQL',0);
  oEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;
  while oEnum.Next(1, colItem, iValue) = 0 do
  begin
    writeln(StrToOem('Caption:  ' + colItem.Caption + ' ('+colItem.Name + ')' + #13#10 +
                     'State:    ' + colItem.State + #13#10 +
                     'PathName: ' + colItem.PathName + #13#10 +
                     '----------------------------------------------------------------'));
  end;
end;

begin
  try
    CoInitialize(nil);
    try
      DumpServices;
    finally
      CoUninitialize;
    end;
  except
    on E:Exception do Writeln(E.Classname, ': ', E.Message);
  end;
  Readln;
end.

Через API - OpenSCManager + EnumServicesStatus (код прямо из гугла, не проверял)

uses WinSvc;

const
  SERVICE_KERNEL_DRIVER = $00000001;
  SERVICE_FILE_SYSTEM_DRIVER = $00000002;
  SERVICE_ADAPTER = $00000004;
  SERVICE_RECOGNIZER_DRIVER = $00000008;
  SERVICE_DRIVER = (SERVICE_KERNEL_DRIVER or SERVICE_FILE_SYSTEM_DRIVER or SERVICE_RECOGNIZER_DRIVER);
  SERVICE_WIN32_OWN_PROCESS = $00000010;
  SERVICE_WIN32_SHARE_PROCESS = $00000020;
  SERVICE_WIN32 = (SERVICE_WIN32_OWN_PROCESS or SERVICE_WIN32_SHARE_PROCESS);
  SERVICE_INTERACTIVE_PROCESS = $00000100;
  SERVICE_TYPE_ALL = (SERVICE_WIN32 or SERVICE_ADAPTER or SERVICE_DRIVER or SERVICE_INTERACTIVE_PROCESS);


function ServiceGetList(sMachine: string; dwServiceType, dwServiceState: DWord; slServicesList: TStrings): boolean;
const
  cnMaxServices = 4096;
type
  TSvcA = array[0..cnMaxServices] of TEnumServiceStatus;
  PSvcA = ^TSvcA;
var
  j: integer;
  schm: SC_Handle;
  nBytesNeeded, nServices, nResumeHandle: DWord;
  ssa: PSvcA;
begin
  Result := false;

  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_ALL_ACCESS);

  if (schm>0) then
  begin
    nResumeHandle := 0;
    New(ssa);

    EnumServicesStatus(schm, dwServiceType, dwServiceState, ssa^[0], SizeOf(ssa^), nBytesNeeded, nServices, nResumeHandle);
    for j := 0 to nServices-1 do
    begin
      slServicesList.
        Add(StrPas(ssa^[j].lpDisplayName));
    end;

    Result := true;
    Dispose(ssa);
    CloseServiceHandle(schm);
  end;
end;

............

  ServiceGetList('', SERVICE_WIN32, SERVICE_STATE_ALL, ListBox1.Items)

[NetSpace]

нате, пользуйтесь.
исходник могу дать позже, если что-то понравится