Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  13:40[Войти] | [Зарегистрироваться]
Ответ на вопрос № 59588

19-02-2008 11:19
Скажите пожалуйста, можно ли программно запускать и останавливать установленную в системе службу и как это делать.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

20-02-2008 07:06 | Сообщение от автора вопроса
Большое спасибо.
Видимо, вариант с шелл апи всё же проще

20-02-2008 06:23
я спрашивал про функцию SendCtrlRequestToSelfOK

== WinSvc

20-02-2008 04:47 | Сообщение от автора вопроса
я спрашивал про функцию SendCtrlRequestToSelfOK

20-02-2008 03:45
маленькое замечание на тему "можно ли программно":
программно можно ВСЁ, т.к. кликами мышки просто запускаются на выполнение куски некоторого программного кода... и как минимум всегда можно сЪэмулировать такое нажатие кнопки мыши (кнопки клавиатуры и пр.) (если не удается найти как "напрямую" вызвать требуемый функционал)

PS: метод ShellExecute описат (согласно кнопке F1) в модуле ShellAPI

20-02-2008 02:41 | Сообщение от автора вопроса
в каком модуле описаны все эти методы и типы?

20-02-2008 01:38


ShellExecute(0, nil, 'net', PChar('stop "'+ServiceName+'"'),nil,sw_SHOW);
ShellExecute(0, nil, 'net', PChar('start "'+ServiceName+'"'),nil,sw_SHOW);


ServiceName - имя службы.

19-02-2008 11:54
constGrabSverviceName == имя твоего сервиса, (попробуй в командной стороке
запустить через net start "имя твоего сервиса", если работает значит имя ОК

19-02-2008 11:49
function SendCtrlRequestToSelfOK(const Ctrl : DWORD):boolean;
var
  hSCM, hSvc : THandle;
  Access : Cardinal;
  SvcStatusRec : TServiceStatus;
begin
  result:=false;

  hSCM:=OpenSCManager(nil, nil, SC_MANAGER_ENUMERATE_SERVICE);

  if (Ctrl=SERVICE_CONTROL_SHUTDOWN) or (Ctrl=SERVICE_CONTROL_STOP) or
    (Ctrl=SERVICE_CONTROL_PAUSE)
  then Access:=SERVICE_STOP or SERVICE_START or SERVICE_PAUSE_CONTINUE
  else Access:=SERVICE_USER_DEFINED_CONTROL;
  hSvc:=OpenService(hSCM, constGrabSverviceName, Access);

  if (hSCM=0) or (hSvc=0)
  then begin
    LogErrMessage('Cannot open service in SendCtrlRequestToSelfOK:');
    LogErrMessage('Os error: '+GetErrorMessage(GetLastError()));
    LogErrMessage('hSCM='+IntToStr(hSCM)+', hSvc='+IntToStr(hSvc));
  end
  else
    if not ControlService(hSvc, Ctrl, SvcStatusRec)
    then begin
      LogErrMessage('Cannot send control request to service in SendCtrlRequestToSelfOK:');
      LogErrMessage('Last known OS error: '+GetErrorMessage(GetLastError()));
      exit;
    end
    else result:=true;

  if hSvc<>0 then CloseServiceHandle(hSvc);
  if hSCM<>0 then CloseServiceHandle(hSCM);
end;

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Зимой — белый, летом — серый. Кто?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования