Перечисление служб

Code:

////////////////////////////////////////////////////////////////////////////////

//

//  ****************************************************************************

//  * Project   : Project1

//  * Unit Name : Unit1

//  * Purpose   : Демо получения информации по сервисам

//  * Author    : Александр (Rouse_) Багель

//  * Version   : 1.00

//  ****************************************************************************

//

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls, WinSvc;

type

TfrmMain = class(TForm)

   lvReport: TListView;

   rgServiceState: TRadioGroup;

   sbCount: TStatusBar;

   OpenDialog1: TOpenDialog;

   procedure FormCreate(Sender: TObject);

   procedure rgServiceStateClick(Sender: TObject);

private

   procedure EnumServices(const State: DWORD);

end;

var

frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.EnumServices(const State: DWORD);

var

hSCObject, hService: SC_HANDLE;

lpServices, TmpEnum: PEnumServiceStatus;

lpServiceConfig: PQueryServiceConfig;

I, cbBuffSize, pcbBytesNeeded,

lpServicesReturned, lpResumeHandle: DWORD;

begin

lvReport.Items.BeginUpdate;

try

   lvReport.Items.Clear;

   // Открываем менеджер сервисов

   hSCObject := OpenSCManager(nil, nil, SC_MANAGER_ENUMERATE_SERVICE);

   if hSCObject <> 0 then

   try

     lpResumeHandle := 0;

     lpServices := nil;

     // Смотрим сколько нужно памяти чтобы получить информацию

     EnumServicesStatus(hSCObject, SERVICE_WIN32, State,

       lpServices^, 0, pcbBytesNeeded, lpServicesReturned, lpResumeHandle);

     if GetLastError = ERROR_MORE_DATA then

     begin

       // Выделяем нужную память

       GetMem(lpServices, pcbBytesNeeded);

       try

         cbBuffSize := pcbBytesNeeded;

         // Получаем требуемую информацию по установленным сервисам

         if EnumServicesStatus(hSCObject, SERVICE_WIN32, State,

           lpServices^, cbBuffSize, pcbBytesNeeded, lpServicesReturned, lpResumeHandle) then

         begin

           TmpEnum := lpServices;

           // Бежим в цикле по записям

           for I := 0 to lpServicesReturned - 1 do

           begin

             // Выводим данные на экран

             with lvReport.Items.Add do

             begin

               // Наименование сервиса

               Caption := TmpEnum^.lpServiceName;

               // Описание сервиса

               SubItems.Add(TmpEnum^.lpDisplayName);

               // Состояние

               case TmpEnum^.ServiceStatus.dwCurrentState of

                 SERVICE_RUNNING: SubItems.Add('Работает');

                 SERVICE_STOPPED: SubItems.Add('Остановлен');

               else

                 SubItems.Add('Неизвестно');

               end;

               // Для дополнительной информаци по сервису получаем описатель сервиса

               hService := OpenService(hSCObject, TmpEnum^.lpServiceName,

                 SERVICE_QUERY_CONFIG);

               if hService <> 0 then

               try

                 // Смотрим сколько нужно памяти

                 QueryServiceConfig(hService, nil, 0, pcbBytesNeeded);

                 if GetLastError = ERROR_INSUFFICIENT_BUFFER then

                 begin

                   cbBuffSize := pcbBytesNeeded;

                   // Берем память

                   GetMem(lpServiceConfig, pcbBytesNeeded);

                   try

                     // Получаем расширенную информацию по сервису

                     if QueryServiceConfig(hService, lpServiceConfig,

                       cbBuffSize, pcbBytesNeeded) then

                     begin

                       // Путь к сервису

                       SubItems.Add(lpServiceConfig^.lpBinaryPathName);

                       // Доступ к рабочему столу

                       if (lpServiceConfig^.dwServiceType and SERVICE_INTERACTIVE_PROCESS) =

                         SERVICE_INTERACTIVE_PROCESS then

                       begin

                         SubItems.Add('Да');

                         lpServiceConfig^.dwServiceType :=

                           lpServiceConfig^.dwServiceType - SERVICE_INTERACTIVE_PROCESS;

                       end

                       else

                         SubItems.Add('Нет');

                       // Тип сервиса

                       case lpServiceConfig^.dwServiceType of

                         SERVICE_WIN32_OWN_PROCESS:

                           SubItems.Add('Одиночный');

                         SERVICE_WIN32_SHARE_PROCESS:

                           SubItems.Add('Не одиночный');

                       else

                           SubItems.Add('Неизвестный тип службы');

                       end;

                       // Группа

                       SubItems.Add(lpServiceConfig^.lpLoadOrderGroup);

                       // Тип запуска

                       case lpServiceConfig^.dwStartType of

                         SERVICE_AUTO_START:

                           SubItems.Add('Автоматический');

                         SERVICE_DEMAND_START:

                           SubItems.Add('Вручную');

                         SERVICE_DISABLED:

                           SubItems.Add('Отключен');

                       end;

                     end;

                   // Завершающее освобождение памяти

                   finally

                     FreeMem(lpServiceConfig);

                   end;

                 end;

               finally

                 CloseServiceHandle(hService);

               end;

             end;

             Inc(TmpEnum);

           end;

         end;

       finally

         FreeMem(lpServices);

       end;

     end;

   finally

     CloseServiceHandle(hSCObject);

   end;

finally

   lvReport.Items.EndUpdate;

   sbCount.Panels.Items[0].Text := ' Общее количество: ' +

     IntToStr(lvReport.Items.Count);

end;

end;

procedure TfrmMain.FormCreate(Sender: TObject);

begin

rgServiceState.OnClick(nil);

end;

procedure TfrmMain.rgServiceStateClick(Sender: TObject);

begin

// В зависимости от выбранного RadioItem перечисляем -

// все сервисы, только активные или неактивные

if rgServiceState.ItemIndex = 0 then

   EnumServices(SERVICE_STATE_ALL)

else

   EnumServices(rgServiceState.ItemIndex);

end;

end.