Параметры запуска сервиса

← →
akim2 (2004-09-14 12:19) [0]

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

← →
simpson © (2004-09-14 13:22) [1]

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

← →
akim2 (2004-09-15 16:17) [2]

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

{ 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;

Параметры запуска сервиса Найти похожие ветки