Текущий архив: 2003.10.27;
Скачать: CL | DM;
Вниз
как узнать есть ли сервис ? Найти похожие ветки
← →
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); не происзодит ошибки => я не могу использовать этот способ для определения => надо найти либо другой способ или разобраться что в этом не так.
← →
clickmaker © (2003-10-14 19:24) [5]Ну не знаю. У меня такой код выдает "Указанная служба не установлена"
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;
← →
ilka © (2003-10-14 19:40) [6]действительно работает даже как-то странно...
ну вообщем персональная благодарность clickmaker-у
Страницы: 1 вся ветка
Текущий архив: 2003.10.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.033 c
