Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Служба [D7, Win2k]

Nata © (2004-08-17 11:51:00)
Здраствуйте мастера…мне надо на удаленном компе остановить запустить службу мне уже подсказали как ее остановить

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:22:00) [1]
верно, нет)

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

Nata (2004-08-17 12:16:00) [2]

> Rouse_ © (17.08.04 12:10) [2]
> Я же ответил в той ветке, чтож не посмотрела?
>
> http://www.delphimaster.ru/cgi-bin/forum.pl?id=1091792327&n=4

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

Nata (2004-08-17 12:14:00) [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 такова нет!!!

Rouse_ (2004-08-17 12:10:00) [4]
Я же ответил в той ветке, чтож не посмотрела?

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1091792327&n=4

Digitman (2004-08-17 12:08:00) [5]
Service := OpenService(SCManager, 'имя сервиса', SERVICE_STOP or SERVICE_START);
...

ControlService(Service, SERVICE_CONTROL_START, ServiceStatus)

Наверх

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