Тип запуска у службы

← →
Delphi-Chainik (2007-01-19 13:01) [0]

Как изменить тип запуска у службы?

← →
novill © (2007-01-19 13:04) [1]

изменить поле starttype у объекта Service
:)

← →
Игорь Шевченко © (2007-01-19 14:16) [2]

ChangeServiceConfig(2)

← →
novill © (2007-01-19 14:39) [3]

> [2] Игорь Шевченко © (19.01.07 14:16)

А телепатором пользоваться нечестно!

← →
Delphi-Chainik (2007-01-20 16:50) [4]

Ёлы-платы так и не понял... При использовании этой функции у меня в результате параметр 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);

Киньте примерчерг плиез :-)

cbBufSize := SizeOf(TQueryServiceConfig);

Тип запуска у службы Найти похожие ветки