как узнать есть ли сервис ?

← →
ilka © (2003-10-14 18:48) [0]

Мастера (и мастерихи если таковые есть) помогите познать истину, а именно то как программно узнать есть ли установленный сервис. Щас это делается так:
var ScH,Sch2 : SC_HANDLE; begin P:=nil; ScH:=OpenSCManager(nil,nil,SC_MANAGER_CONNECT); Sch2:=OpenService(Sch, "name",SERVICE_ALL_ACCESS); if sch2=NULL then begin showmessage("error in open"); end;
Какой бы ни был "name": sch2 всегда не равен нулю.

← →
clickmaker © (2003-10-14 18:52) [1]

А так

Sch2:=OpenService(Sch,"name",SERVICE_ALL_ACCESS); if (Sch2 = 0) and (GetLastError = ERROR_SERVICE_DOES_NOT_EXIST) then showmessage("error in open");

← →
ilka © (2003-10-14 19:00) [2]

в независемости от "name" sch2<>0

← →
clickmaker © (2003-10-14 19:04) [3]

Ну а GetLastError чё выдает ?

← →
ilka © (2003-10-14 19:13) [4]

>Ну а GetLastError чё выдает ?
выдает код "0"

проблема в том что надо определить есть ли сервис или его нет, но при вызове OpenService(Sch,"name",SERVICE_ALL_ACCESS); не происзодит ошибки => я не могу использовать этот способ для определения => надо найти либо другой способ или разобраться что в этом не так.

Ну не знаю. У меня такой код выдает "Указанная служба не установлена"

ScH:=OpenSCManager(nil,nil,SC_MANAGER_CONNECT or GENERIC_READ); if (scH <> 0) then begin Sch2 := OpenService(Sch,"name",SERVICE_ALL_ACCESS); if sch2 = 0 then ShowMessage(SysErrorMessage(GetLastError)) else CloseServiceHandle(sch2); CloseServiceHandle(sch); end;

действительно работает даже как-то странно...
ну вообщем персональная благодарность clickmaker-у

как узнать есть ли сервис ? Найти похожие ветки