Форум: "Основная";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];
ВнизТип запуска у службы Найти похожие ветки
← →
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);
Киньте примерчерг плиез :-)
← →
clickmaker © (2007-01-22 12:28) [5]cbBufSize := SizeOf(TQueryServiceConfig);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.052 c