VPF::описание к сервису - Форум программистов

Iskender

Дата 23.10.2005, 16:47 (ссылка)

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

Загрузка ...

Новичок

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

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

В поиске наткнулся на такую же тему
В ней был приведен пример кода:

Код


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;

При компиляции выдает ошибку:
необъявленные идентификаторы: SC_HANDLE, SC_LOCK, OpenSCManager, SC_MANAGER_ALL_ACCESS, LockServiceDatabase, OpenService, SERVICE_CHANGE_CONFIG, CloseServiceHandle, UnlockServiceDatabase.

Может кто нибудь сможет ответить почему? и как мне правильно сделать это описание?..

Snowy

Дата 23.10.2005, 17:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Добавить в uses
uses WinSvc;

Это сообщение отредактировал(а) Snowy - 23.10.2005, 17:52

Iskender

Дата 23.10.2005, 19:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Благодарю, все работает. Я не знал какой модуль подключать надо.
Еще вопрос: у сервиса также есть характеристика "Изготовитель" можно ли и её описать, и как?

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