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

[dimonbest]

GunSmoker, это то понятно
Но если я нахожусь уже под учетной записью администратора, exe все равно нужно запускать от имени администратора? Если да то почему так, в ХР такого нету...

[GunSmoker]

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

Но если я нахожусь уже под учетной записью администратора, exe все равно нужно запускать от имени администратора?

Сказал же:

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

Что ни разу не означает, что у вас есть администраторские полномочия. Процесс должен быть элевирован (повышен в правах) или же UAC отключен.

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

Если да то почему так, в ХР такого нету...

Потому что пользователи - ленивый скот, который любит попинать MS за отсутствие безопасности, но совершенно не хочет хоть что-то делать правильно сам. И тогда его приходится заставлять. До Vista Microsoft пыталась уговаривать пользователей: ну работайте же под ограниченными учётками, не надо работать под администраторами. Начиная с Vista и выше Microsoft говорит: если вы не хотите делать правильно - мы заставим вас это делать.

[KiL0z]

Как проверить, установлена ли служба
Что бы, если она не установлена, установить...
Установка есть уже - проверить не пойму как

[KiL0z]

Решён вопрос, написана функция проверка установки службы:

function IsStartService(ServiceName: String): Boolean;
var
  Mgr, Svc: Integer;
  UserName, ServiceStartName: string;
  Config: Pointer;
  Size: DWORD;
begin
  Result := False;
  try
    Mgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
    if (Mgr <> 0) then begin
      Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_ALL_ACCESS);
      Result := Svc <> 0;
      if Result then begin
        QueryServiceConfig(Svc, nil, 0, Size);
        Config := AllocMem(Size);
        try
          QueryServiceConfig(Svc, Config, Size, Size);
          ServiceStartName := PQueryServiceConfig(Config)^.lpServiceStartName;
          if CompareText(ServiceStartName, 'LocalSystem') = 0 then
            ServiceStartName := 'SYSTEM';
        finally
          Dispose(Config);
        end;
        CloseServiceHandle(Svc);
      end;
      CloseServiceHandle(Mgr);
    end;
    if Result then begin
      Size := 256;
      SetLength(UserName, Size);
      GetUserName(PChar(UserName), Size);
      SetLength(UserName, StrLen(PChar(UserName)));
      Result := CompareText(UserName, ServiceStartName) = 0;
    end;
  except
    else Result := False;
  end;
end;