Форум: "Основная";
Текущий архив: 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.041 c