VPF::Где можно добавить описание к сервису.

devmstr

Дата 15.5.2004, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Где можно добавить описание к сервису.
То есть я написал свой сервис используя стандартные средства Delphi, задал ему имя, а то, что будет высмечиваться в меню СЛУЖБЫ в разделе описание добавить не могу.
Посветите, пожалуйста.

--------------------

Think different ©Steve Jobs
user posted image

devmstr

Дата 23.5.2004, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Неужели никто не знает, или я как то не коректно вопрос поставил???

--------------------

Think different ©Steve Jobs
user posted image

Enflout

Дата 23.5.2004, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 260
Регистрация: 22.5.2004

Репутация: нет
Всего: 6

С делфи сильно не знаком, но могу посоветовать записать комментарий в реестр, в ключ твоего сервиса.
Вот путь:
HKLM\System\CurrentControlSet\Services\Имя твоего сервиса
Description - REG_SZ - описание сервиса.

p0s0l

Дата 25.5.2004, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Повесь это на AfterInstall:

Код


function ChangeServiceConfig2(hService: SC_HANDLE; dwInfoLevel: DWORD;
  lpInfo: Pointer): BOOL; stdcall; external 'advapi32.dll' name 'ChangeServiceConfig2A';
const SERVICE_CONFIG_DESCRIPTION = 1;
type
  SERVICE_DESCRIPTION = record
    lpDescription : PChar;
  end;

procedure TPosolService.ServiceAfterInstall(Sender: TService);
var
  hManager, hService : SC_HANDLE;
  hLock : SC_LOCK;
  Desc : SERVICE_DESCRIPTION;
begin
  hManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  hLock := LockServiceDatabase(hManager);
  hService := OpenService(hManager, PChar(Sender.Name), SERVICE_CHANGE_CONFIG);
  Desc.lpDescription := 'Описание сервиса';
  ChangeServiceConfig2(hService, SERVICE_CONFIG_DESCRIPTION, @Desc);
  CloseServiceHandle(hService);
  UnlockServiceDatabase(hLock);
  CloseServiceHandle(hManager);
end;

Desc.lpDescription задает описание сервиса...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »