Создать программу как службу

[dimonbest]

C этим всем поразбирался:

procedure TService1.ServiceAfterInstall(Sender: TService);   
begin  
sleep(1000);   
service1.DoStart;   
end;

В этом случае служба таки запускалась, только не от СИСТЕМ, а от текущего пользователя. И что характерно в списке служб была незапущенной, а была видна только в списке процессов. А я ее тогда еще вручную запуслил, она запустилась как СИСТЕМ, и получилось что работало 2 одинаковых службы, поэтому письмо 2 раза и отсылалось.
Возникла следующая проблема (надеюсь что последняя):
создал одну службу. инсталировал, все хорошо. Создал вторую (соответственно с другим кодом и другим именем службы), а при инсталяции пишет, что такая служба уже существует. Когда деинсталирую первую, то вторая инсталируется нормально. В чем может быть проблема?

[dimonbest]

В свойствах службы на вкладке восстановление есть действие виндовс при сбое работы службы (перезапуск). А как задать это свойство через DELPHI?

[B_N]

Сообщение от dimonbest

В свойствах службы на вкладке восстановление есть действие виндовс при сбое работы службы (перезапуск). А как задать это свойство через DELPHI?

Не знаю, как там насчёт Delphi, но вообще это делается

1. Установкой параметра FailureActions и, если нужно, FailureCommand в HKLM\System\CurrentControlSet\Servi ces\[Имя_Службы] (Что не есть удобно - нужно знать формат параметра FailureActions)
2. Функцией ChangeServiceConfig2
ChangeServiceConfig2
Changing a Service's Configuration

[dimonbest]

Cпасибо за совет, мне подходит вариант 1.
Еще такой вопросик появился:
У службы можно сделать описание. А в делфи такого свойства я не нашел. Как вообще добавляется описание к службе?

[dimonbest]

Появилась проблема.
Создал службу, проект прикрепил. Инсталирую, запускаю.
Она работает.
Дальше я ее пытаюсь остановить (через мой компьютер, управление, службы и приложения). Она не останавливается, выдает ошибку (скрин прикрепил). В чем может быть проблема, никто с этим не сталкивался?

[Leloush]

Как я понимаю вы хотите создать вредоносную программу(ну чисто ради знаний, никакого распространения не планируете, ведь так? )))), и хотите процесс показать как сервисный процесс(служба), но я бы так не делал, сейчас любой самый вшивый антивирус проверяет даже службы, поэтому проще сделать 2 ДЛЛ, сделать внедрение первой в антивирус (она должна быть с виду как можно более приличной, весь код должен сводится к подвисанию антивируса "мирными способами"), после чего внедрить вторую, которая захватит антивирус и будет заниматься от его имени теми делами какими вы хотите )

[dimonbest]

Нет, это не вирус.
Сейчас службу останавливаю следующим образом:
Раз в секунду проверяю значени определенной переменной в реестре, и при определенном значении в службе даю команду:

service1.dostop

и она останавливается... Но это кривовато.
Нашел в DW код для остановки службы. Он не работает. Тогда попытался вручную остановить службу, и вышла такая ошибка...

[dimonbest]

Господа доброго времени суток.
Появилась проблема со службой.
Вот код остановки службы:

function ServiceStop(aMachine,aServiceName: string ): boolean;
// aMachine это UNC путь, либо локальный компьютер если пусто
var
  h_manager, h_svc: SC_Handle;
  svc_status: TServiceStatus;
  dwCheckPoint: DWord;
begin
  h_manager:=OpenSCManager(PChar(aMachine),nil, SC_MANAGER_CONNECT);
  if h_manager > 0 then
  begin
    h_svc := OpenService(h_manager,PChar(aServiceName),
    SERVICE_STOP or SERVICE_QUERY_STATUS);
    if h_svc > 0 then
    begin
      if(ControlService(h_svc,SERVICE_CONTROL_STOP, svc_status))then
      begin
        if(QueryServiceStatus(h_svc,svc_status))then
        begin
          while(SERVICE_STOPPED <> svc_status.dwCurrentState)do
          begin
            dwCheckPoint := svc_status.dwCheckPoint;
            Sleep(svc_status.dwWaitHint);
            if(not QueryServiceStatus(h_svc,svc_status))then
            begin
              // couldn't check status
//              showmessage
              break;
            end;
            if(svc_status.dwCheckPoint < dwCheckPoint)then
              break;
          end;
        end;
      end;
      CloseServiceHandle(h_svc);
    end;
    CloseServiceHandle(h_manager);
  end;
  Result := SERVICE_STOPPED = svc_status.dwCurrentState;
end;

В WINDOWS XP проблем никаких нет. А вот в WINDOWS 7 работать не хочет/ Функция просто ничего не делает... Как можно модифицировать функцию, чтобы работала и на семерке?
Спасибо!

[GunSmoker]

Запускать под админом.

[dimonbest]

Я и есть под пользователем администратор. Данная функция не помогает. Приходится вручную заходить в службы и запускать ее там, что не есть правильно...
P.S. Может есть другая функция запуска/остановки службы, для семерки и висты?