| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Тип запуска у службы [D7, WinXP]
Delphi-Chainik © (2007-01-19 13:01:00)Как изменить тип запуска у службы?
clickmaker (2007-01-22 12:28:00) [1]cbBufSize := SizeOf(TQueryServiceConfig);
Delphi-Chainik (2007-01-20 16:50:00) [2]Ёлы-платы так и не понял... При использовании этой функции у меня в результате параметр dwStartType = 0;
var
SCManagerHandle, SCHandle : THandle;
ServiceStatus : TServiceStatus;
/ServiceConfig : TQueryServiceConfig;
cbBufSize : DWORD;
pcbBytesNeeded : DWORD;
begin
SCManagerHandle := OpenSCManager(nil, nil, GENERIC_READ);
SCHandle := OpenService(SCManagerHandle, PChar(ServiceName), SERVICE_ALL_ACCESS);
ControlService(SCHandle, ServiceControlCode, ServiceStatus);
QueryServiceConfig(SCHandle, @ServiceConfig, cbBufSize, pcbBytesNeeded);
case ServiceConfig.dwStartType of // Тип запуска
SERVICE_BOOT_START :
SERVICE_SYSTEM_START :
SERVICE_AUTO_START :
SERVICE_DEMAND_START :
SERVICE_DISABLED :
end;
CloseServiceHandle(SCHandle);
CloseServiceHandle(SCManagerHandle);
Киньте примерчерг плиез :-)
novill (2007-01-19 14:39:00) [3]> [2] Игорь Шевченко © (19.01.07 14:16)
А телепатором пользоваться нечестно!
Игорь Шевченко (2007-01-19 14:16:00) [4]ChangeServiceConfig(2)
novill (2007-01-19 13:04:00) [5]изменить поле starttype у объекта Service
:)
| |
