Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.07.03;
Скачать: CL | DM;

Вниз

как найти числовой ID, путь и описание службы (service)   Найти похожие ветки 

 
Xalexo   (2011-03-22 22:59) [0]

C именем сервиса (lpServiceName\lpDisplayName) и тек. состоянием (dwCurrentState) проблем нет, а вот
как найти числовой ID, путь и описание службы посредством функции EnumServicesStatus [модуль - WINSVC] (или может - какой другой)??? Подскажите пожалуйста...


 
Игорь Шевченко ©   (2011-03-23 00:00) [1]

разве у сервисов есть "числовой ID" ?
описание через QueryServiceConfig2


 
DVM ©   (2011-03-23 00:06) [2]


> как найти числовой ID

PID процесса службы может быть? QueryServiceStatusEx тогда.


 
DVM ©   (2011-03-23 00:10) [3]


> путь

Недостающие функции сам допишешь, там понятно что это:


class function TSCManager.GetConfig(const AServiceName: string;
 const AMachineName: string = ThisMachine): TQueryServiceConfig;
var
 hManager, hSvc: SC_HANDLE;
 BytesNeeded: DWORD;
 PServiceConfig: PQueryServiceConfig;
 LastErr: DWORD;
begin
 hManager := ManagerOpen(SERVICE_QUERY_CONFIG, AMachineName);
 try
   hSvc := ServiceOpen(AServiceName, hManager, SERVICE_QUERY_CONFIG);
   try
     BytesNeeded := 0;
     if QueryServiceConfig(hSvc, nil, 0, BytesNeeded) then
     begin
       LastErr := GetLastError;
       if LastErr <> ERROR_INSUFFICIENT_BUFFER then
         RaiseLastOSError(LastErr);
     end;
     GetMem(PServiceConfig, BytesNeeded);
     try
       Win32Check(QueryServiceConfig(hSvc, PServiceConfig, BytesNeeded, BytesNeeded));
       Result := PServiceConfig^;
     finally
       FreeMem(PServiceConfig);
     end;
   finally
     ServiceClose(hSvc);
   end;
 finally
   ManagerClose(hManager);
 end;
end;

//----------------------------------------------------------------------------

class function TSCManager.GetBinaryPathName(const AServiceName: string;
 const AMachineName: string = ThisMachine): string;
begin
 Result := GetConfig(AServiceName, AMachineName).lpBinaryPathName;
end;


 
Xalexo   (2011-03-28 14:47) [4]

Спасибо всем



Страницы: 1 вся ветка

Текущий архив: 2011.07.03;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.005 c
1-1257430353
igor666
2009-11-05 17:12
2011.07.03
Не модальная форма из DLL, не обрабатываются некоторые события.


1-1258707280
4el0vek
2009-11-20 11:54
2011.07.03
TStreamReader | TStream | Проблема с чтением потока


2-1301297993
aka
2011-03-28 11:39
2011.07.03
Пазлы


15-1300700731
P
2011-03-21 12:45
2011.07.03
Как правильно перевести на Английский фразу


2-1301145994
VikOss
2011-03-26 16:26
2011.07.03
глюк StringGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский