информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Где водятся OGRыСетевые кракеры и правда о деле Левина
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Крупный взлом GoDaddy 
 Просроченный сертификат ломает... 
 Phrack #70/0x46 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / beginners
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Есть наброски... Посмотри это (внутри)... 19.07.06 11:17  Число просмотров: 2092
Автор: 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;

---
<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;

---
Ну у кого то точно есть 18.07.06 15:53  
Автор: amirul <Serge> Статус: The Elderman
<"чистая" ссылка>
> есть у кого-нить рабочая версия?

Учимся правильно задавать вопросы.

Для затравки: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndllpro/html/msdn_ntservic.asp

Майкрософтовская обертка вокруг SCM API для облегчения создания сервисов
1






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2021 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach