| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

службы (сервисы)

Scot Storch ©   (2009-02-10 12:16:00) 

Разбираюсь с написанием служб (сервисов). Смотрю пример установки службы. Вот код: Не понимаю зачем вызывать и нужно ли вообще, функцию ChangeServiceConfig, пожалуйста разъясните уважаемые Мастера.

function Install: Boolean;
var
 s_Manager, S: SC_HANDLE;
begin
 s_Manager := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);
 if s_Manager <> 0 then
   try
     S := CreateService(s_Manager, s_Name_A, s_DisplayName_A, SERVICE_ALL_ACCESS,
       SERVICE_WIN32_OWN_PROCESS, SERVICE_AUTO_START,
         SERVICE_ERROR_NORMAL, PChar('"' + ParamStr(0) + '" -Service'), nil, nil, nil, nil, nil);
     if S <> 0 then
       try
          Result := ChangeServiceConfig(S, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE,
           SERVICE_NO_CHANGE, nil, nil, nil, nil, nil, nil, nil);
       finally
         CloseServiceHandle(S);
       end
     else
       Result := GetLastError = ERROR_SERVICE_EXISTS;
   finally
     CloseServiceHandle(s_Manager);
   end
 else
   Result := False;
end;


---

StriderMan   (2009-02-10 16:51:00) [1]

> Имхо, лучше написать там где не надо, чем не написать там где надо

лучше писать толькотам где надо.

Потом следующий такой перестраховщик внутрь еще один try...except засунет. А следующий в принципе не разберется и обернет все это в еще один. На выходе получится малопонятный бутерброд.

---

DVM   (2009-02-10 16:13:00) [2]

> явная глупость - оборачивать ChangeServiceConfig в try -
>  finally: эта функция не выбрасывает исключений

Имхо, лучше написать там где не надо, чем не написать там где надо. Хорошая привычка страховать себя. Мало ли, сейчас между try...finally одна строка, потом пять.

---

Anatoly Podgoretsky   (2009-02-10 15:35:00) [3]

> Result := ChangeServiceConfig

Результат у данной функции не Boolean

---

han_malign   (2009-02-10 15:29:00) [4]

это параноя, в стиле: if(Result <> true)then Result:= false;

Хотя, не исключено, что это kludgeдля какой то глючной ревизии/инсталяции/кряка Windows( в довесок, с каким нибудь кривым руткитом, вроде Symantec - перехватывающим всё и вся )...

---

clickmaker   (2009-02-10 12:39:00) [5]

а откуда эта функция?
явная глупость - оборачивать ChangeServiceConfig в try - finally: эта функция не выбрасывает исключений

в VCL есть подобная TServiceApplication.RegisterServices

---

Наверх