Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
Nata   (2004-08-06 15:38) [0]

Здравствуйте мастера! Очень прошу помогите…как мне  остановить службу на удаленном компьютере(компьютера в домене у меня права администратора) если можно фрагментик программки…заранее всем спасибо….


 
Rouse_ ©   (2004-08-06 15:41) [1]

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;


 
Nata   (2004-08-06 15:43) [2]


> Rouse_
блин я тебя обожаю!!!!!!!!!!!!!!!!!!!!!!!!!
правда я еще не пробовала ну все равно спасибо тебе....чмок!


 
Nata   (2004-08-06 15:46) [3]

слушай а подключать ничего не надо????
USES ????


 
Rouse_ ©   (2004-08-06 16:07) [4]

WinSvc


 
Nata   (2004-08-06 18:12) [5]

:( ты знаешь запустилось но не раотает нажимаю на кнопку вообще ничего не происходит....:(
может я че не так сделала глянь....

procedure TForm1.Button1Click(Sender: TObject);
var
SCManager, Service: SC_HANDLE;
ServiceStatus: TServiceStatus;
begin
SCManager := OpenSCManager("\\127.0.0.1", nil, SC_MANAGER_ALL_ACCESS);
if SCManager <> 0 then
begin

try

  Service := OpenService(SCManager, "Telnet", SERVICE_STOP);
form1.Label1.Caption:=inttostr(service);

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

end;


 
Rouse_ ©   (2004-08-06 18:15) [6]

Service := OpenService(SCManager, "Telnet", SERVICE_STOP);

замени на
 Service := OpenService(SCManager, "TlntSvr", SERVICE_STOP);


 
Rouse_ ©   (2004-08-06 18:19) [7]

А в качестве параметра сервиса нужно передавать имя службы а не выводимое имя...

Запусти services.msc и посмотри в свойствах сервиса...


 
Nata   (2004-08-06 18:20) [8]


> Rouse_ ©   (06.08.04 18:15) [6]
> Service := OpenService(SCManager, "Telnet", SERVICE_STOP);
>
> замени на
>  Service := OpenService(SCManager, "TlntSvr", SERVICE_STOP);
Да супер остановила но вот вопрос как запустить???? мне надо еще и потом запускать подскажи....


 
Nata   (2004-08-06 18:27) [9]

я понимаю я тебе надоела но еще вопрос у меня есть служба она запускается C:\CARDSERV\CSERVICE.EXE
вот если я пишу Service := OpenService(SCManager, "CSERVICE", SERVICE_STOP);
что делать???


 
Rouse_ ©   (2004-08-06 22:05) [10]

Запустить соответственно:

var
 SCManager, Service: SC_HANDLE;
 P: PChar;
begin
 SCManager := OpenSCManager("\\RemoteComp", nil, SC_MANAGER_ALL_ACCESS);
 if SCManager <> 0 then
 try
   Service := OpenService(SCManager, "имя сервиса", SERVICE_START);
   if Service <> 0 then
   try
     P := nil;
     if not StartService(Service, 0, P) then
     begin
       ShowMessage(SysErrorMessage(GetLastError));
       Exit;
     end;
   finally
     CloseServiceHandle(Service);
   end;
 finally
   CloseServiceHandle(SCManager);
 end;


> я понимаю я тебе надоела но еще вопрос у меня есть служба она запускается C:\CARDSERV\CSERVICE.EXE
> вот если я пишу Service := OpenService(SCManager, "CSERVICE", SERVICE_STOP);
> что делать???


Не понял вопроса...


 
Rouse_ ©   (2004-08-06 22:15) [11]

Если последний вопрос по поводу инсталяции сервиса в SCM - то у "нормального" сервиса должна поддерживаться инсталляция из командной строки...

В противном случае можно конечно и ручками...

//  Инсталяция сервисов в SCM
// =============================================================================
function Install: Boolean;
const
 StartType =
{$IFDEF SERVICE_DEBUG}
   SERVICE_DEMAND_START;
{$ELSE}
   SERVICE_AUTO_START;
{$ENDIF}
var
 SCManager, Service: SC_HANDLE;
 Info: String;
begin
 SCManager := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);
 if SCManager <> 0 then
 try
   Service := CreateService(SCManager, ListenerServiceName, ListenerServiceDisplayName,
     SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS,
     StartType, SERVICE_ERROR_NORMAL, PChar(""" + ParamStr(0) + "" -service"),
     nil, nil, nil, nil, nil);
   if Service <> 0 then
   try
     Result := ChangeServiceConfig(Service, SERVICE_NO_CHANGE,
       SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, nil, nil,
       nil, nil, nil, nil, nil);
     Info := ListenerServiceInfo;
     if Result then
       Result := ChangeServiceConfig2(Service,
         SERVICE_CONFIG_DESCRIPTION, @Info);
   finally
     CloseServiceHandle(Service);
   end
   else
     Result := GetLastError = ERROR_SERVICE_EXISTS;
 finally
   CloseServiceHandle(SCManager);
 end
 else
   Result := False
end;



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

Форум: "Сети";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.031 c
3-1095837110
Iren
2004-09-22 11:11
2004.10.17
Доменная аутентификация


3-1095410136
}|{yk
2004-09-17 12:35
2004.10.17
Это глюк Firebird?


6-1091704405
dimm22
2004-08-05 15:13
2004.10.17
Как программно изменить свойства подключения IExplorera?


8-1090586008
moor38
2004-07-23 16:33
2004.10.17
Как программно несколько WAV-файлов склеить в один?


1-1096541936
Мирон
2004-09-30 14:58
2004.10.17
Потоки мешаю друг другу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский