как правильно запустить службу ? System Error. Code: 5.

[AppData]

как запустить службу? пишет отказано в доступе

---------------------------
Project1
---------------------------
System Error. Code: 5.

Отказано в доступе.
---------------------------
ОК
---------------------------

procedure TForm1.StartService(ServiceName: string);
var

  schService,
    schSCManager: Dword;
  p: PChar;
begin

  p := nil;
  schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if schSCManager = 0 then
    RaiseLastWin32Error;
  try
    schService := OpenService(schSCManager, PChar(ServiceName),
      SERVICE_ALL_ACCESS);
    if schService = 0 then
      RaiseLastWin32Error;
    try
      if not Winsvc.startService(schService, 0, p) then
        RaiseLastWin32Error;
    finally
      CloseServiceHandle(schService);
    end;
  finally
    CloseServiceHandle(schSCManager);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 StartService('BEService');
end;

[Shouldercannon]

Запуск от имени администратора?

[AppData]

а без админа , прописав программно Привилегии можно?

[AppData]

если правой кнопкой мышки то да, через админа получается. а вот как сделать чтобы автоматом он понимал

[northener]

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

если правой кнопкой мышки то да, через админа получается. а вот как сделать чтобы автоматом он понимал

Тогда любой зловред сможет так сделать.