Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Остановка сервиса   Найти похожие ветки 

 
pavel_guzhanov   (2004-10-29 16:21) [0]

Подскажите, как можно программно остановить сервис? Дело в том, что моя программа - сервис. Она получает команды через telnet. Одна из команд - stop, а вот как по ней остановить программу - не знаю. Помогите, кто в курсе. Application.Terminate - не катит


 
Дмитрий Ботвин   (2004-10-29 16:51) [1]

Вот так:

Uses Winsvc;

procedure TForm1.ExecuteControlService(ServiceName: String);
 var
   SCManagerHandle, SCHandle  : THandle;
   ServiceStatus : TServiceStatus;
 begin
   // 1. Подключениемся к менеджеру сервисов
   SCManagerHandle := OpenSCManager(PChar(CompName.Text), nil, GENERIC_READ);
   // 2. Открытие сервиса
   SCHandle := OpenService(SCManagerHandle, PChar(ServiceName), SERVICE_ALL_ACCESS);
   // 3. Управление состоянием
   ControlService(SCHandle, SERVICE_CONTROL_STOP, ServiceStatus);
   // 4. Закрытие сервиса
   CloseServiceHandle(SCHandle);
   // 5. Закрытие менеджера
   CloseServiceHandle(SCManagerHandle);
 end;


 
pavel_guzhanov   (2004-10-29 16:52) [2]

ух ты! Спасибо! Буду пробовать


 
Erik1 ©   (2004-10-29 19:50) [3]

Думаю тебе надо другое, если твой сервис хочет сам себя остановить то: Останови свой тред(если есть) и сделай ему free. Останови основной цикл сервиса например установкой флага.



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
1-1101726843
Sanya
2004-11-29 14:14
2004.12.12
Клавиатура vs Пользователя


1-1101826657
Павел
2004-11-30 17:57
2004.12.12
Таймер в многопоточном приложение


1-1101818391
Chlavik
2004-11-30 15:39
2004.12.12
ActiveX - правильно обьявлены функции ???


6-1096874386
vadimlg
2004-10-04 11:19
2004.12.12
Как через ICQClient передать файл?


3-1100517366
Domkrat
2004-11-15 14:16
2004.12.12
Sql