Текущий архив: 2002.09.16;
Скачать: CL | DM;
Вниз
Управление сервисами в 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
