Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
ServiceStart 18.07.06 15:38
Автор: prosto_Maria Статус: Незарегистрированный пользователь
|
есть у кого-нить рабочая версия?
|
 |
Есть наброски... Посмотри это (внутри)... 19.07.06 11:17
Автор: HandleX <Александр М.> Статус: The Elderman Отредактировано 19.07.06 11:18 Количество правок: 1
|
Procedure StartService(ServName: String);
Var
SrvHndl, SCHndl: THandle;
Dummy: PChar;
begin
SCHndl := OpenSCManager(Nil, Nil, MAXIMUM_ALLOWED);
Win32Check(SCHndl <> 0);
Try
SrvHndl := OpenService(SCHndl, PChar(ServName), SERVICE_START Or SERVICE_QUERY_STATUS);
Win32Check(SrvHndl <> 0);
Try
Dummy := Nil;
Win32Check(StartService(SrvHndl, 0, Dummy));
Finally
CloseServiceHandle(SrvHndl);
End;
Finally
CloseServiceHandle(SCHndl);
End;
End;
---
|
|
|