Скачать: CL | DM;

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

← →
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/

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

---

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

верно, нет)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c