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

Вниз

Управление сервисами в Delphi   Найти похожие ветки 

← →
Jorchick   (2002-07-03 17:46) [0]

Народ, подскажите, пожалуйста, как управлять сервисами из Delphi.
Например, мне нужно остановить службу "Messenger", а потом запустить.

---

← →
ZZ   (2002-07-03 17:53) [1]

http://rsdn.ru/article/?baseserv/svcadmin-2.xml

---

← →
Jorchick   (2002-07-04 02:17) [2]

Спасибо за ответ.
Но мне нужно немного другое. В тексте говорится все об управлении службами из-под C/C++. А мне нужно из-под Delphi.

---

← →
ZZ   (2002-07-04 04:43) [3]

uses WinSvc,Windows;
var
hSCM,hService:THandle;
SStatus : _SERVICE_STATUS;

hSCM:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
hService := OpenService(hSCM, "Messanger",SERVICE_ALL_ACCESS);

StartService(hService,0,nil);
...
ControlService(hService,SERVICE_CONTROL_STOP,SStatus );

Примерно так (с правами конечно перебор :) Можно было и поменьше )

---

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

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

Наверх

Память: 0.44 MB
Время: 0.007 c