BugTraq.Ru: форум / beginners / Есть наброски... Посмотри это (внутри)...

информационная безопасность
без паники и всерьез

подробно о проекте

Анализ криптографических сетевых...

Модель надежности двухузлового...

Специальные марковские модели надежности...

Очередное исследование 19 миллиардов...

Оптимизация ввода-вывода как инструмент...

Зловреды выбирают Lisp и Delphi

bugtraq.ru / форум / beginners

Имя

Пароль

если вы видите этот текст, отключите в настройках форума использование JavaScript


ФОРУМ


	все доски
	FAQ
	IRC
	новые сообщения

	site updates
	guestbook
	beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap

регистрация

Легенда:

новое сообщение

закрытая нитка

новое сообщение

в закрытой нитке

старое сообщение

Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
Новичкам также крайне полезно ознакомиться с данным документом.

Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.

Есть наброски... Посмотри это (внутри)... 19.07.06 11:17 Число просмотров: 2521
Автор: 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;

---

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 для облегчения создания сервисов

Page build time: 0 s

Design: Vadim Derkach