Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Где можно добавить описание к сервису.

Автор: devmstr 15.5.2004, 16:08

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

Автор: devmstr 23.5.2004, 11:31

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

Автор: Enflout 23.5.2004, 13:04

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

Автор: p0s0l 25.5.2004, 00:50

Повесь это на 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 задает описание сервиса...