Служба

← →
Nata (2004-08-17 11:51) [0]

Здраствуйте мастера…мне надо на удаленном компе остановить запустить службу мне уже подсказали как ее остановить

var
SCManager, Service: SC_HANDLE;
ServiceStatus: TServiceStatus;
begin
SCManager := OpenSCManager("\\RemoteComp", nil, SC_MANAGER_ALL_ACCESS);
if SCManager <> 0 then
try
Service := OpenService(SCManager, "имя сервиса", SERVICE_STOP);
if Service <> 0 then
try
if not ControlService(Service, SERVICE_CONTROL_STOP, ServiceStatus)
and (ServiceStatus.dwCurrentState = SERVICE_STOPPED) then
begin
ShowMessage(SysErrorMessage(GetLastError));
Exit;
end;
btnStopStart.Enabled := False;
btnClose.Enabled := False;
btnStart.Enabled := True;
finally
CloseServiceHandle(Service);
end;
finally
CloseServiceHandle(SCManager);
end;
а вот как запустить не знаю подскажите плз…..

← →
Digitman © (2004-08-17 12:08) [1]

Service := OpenService(SCManager, "имя сервиса", SERVICE_STOP or SERVICE_START);
...

ControlService(Service, SERVICE_CONTROL_START, ServiceStatus)

← →
Rouse_ © (2004-08-17 12:10) [2]

Я же ответил в той ветке, чтож не посмотрела?

http://delphimaster.net/view/6-1091792327/

← →
Nata (2004-08-17 12:14) [3]

> Digitman © (17.08.04 12:08) [1]
> Service := OpenService(SCManager, "имя сервиса", SERVICE_STOP
> or SERVICE_START);
> ...
>
> ControlService(Service, SERVICE_CONTROL_START, ServiceStatus)

да нет не все так просто!!!! service_control_start такова нет!!!

← →
Nata (2004-08-17 12:16) [4]

> Rouse_ © (17.08.04 12:10) [2]
> Я же ответил в той ветке, чтож не посмотрела?
>
> http://delphimaster.net/view/6-1091792327/

ТОЧНО!!! ты прелесть!!!! пасиб!

верно, нет)

но уж и не найти самостоятельно в справке ф-цию ServiceStart() - это уще умудриться нужно)

Служба Найти похожие ветки