| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Параметры запуска сервиса [D6, Win2k, WinXP]

akim2 ©   (2004-09-14 12:19:00) 

День добрый, народ
Можкт кто знает как программно можно изменить паарметры загрузки сервера. А именно, параметры на закладке LogOn.

---

akim2   (2004-09-15 16:17:00) [1]

Сделал, спасибо. Привожу пример кода, может надо кому нить.

{ Change Service Type }
{
 sService - service name
 account  - start account name (LocalSystem for default)
 password - password for account
 starttype - (SERVICE_NO_CHANGE, SERVICE_AUTO_START, SERVICE_DISABLED, SERVICE_DEMAND_START)
}
function ChangeService(sService, account, password : string; starttype : Word) : boolean;
var
 SCH   : SC_HANDLE;
 SvcSCH: SC_HANDLE;
begin
 Result := false;
 SCH := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
 if SCH <> 0 then begin
   try
     SvcSCH := OpenService(SCH, PChar(sService), SERVICE_ALL_ACCESS);
     if SvcSCH <> 0 then begin
       try
         Result :=
         ChangeServiceConfig(
           SvcSCH,            // handle of service
           SERVICE_NO_CHANGE, // service type: no change
           starttype,         // change service start type
           SERVICE_NO_CHANGE, // error control: no change
           nil,               // binary path: no change
           nil,               // load order group: no change
           nil,               // tag ID: no change
           nil,               // dependencies: no change
           PChar(account),    // account name: no change
           PChar(password),   // password: no change
           nil                // Display Description
           );
       finally
         CloseServiceHandle(SvcSCH);
       end;
     end;
   finally
     CloseServiceHandle(SCH);
   end;
 end;
end;

---

simpson   (2004-09-14 13:22:00) [2]

ChangeServiceConfig, см. параметры lpServiceStartName и lpPassword

---

Наверх