Запуск с правами администратора под Vista/7

[KiL0z]

Как проверить что программа запущена под Vista/7 и запустить свою копию с правами администратора (ну, возможно ещё и в режиме совместимости с XP или ещё чем) ?

Просто нужно установить службу под Win7x64sp1, а ключ /install не работает без режима совместимости с XP и прав администратора (проверено в ручную). Еще ручками получалось установить службу с помощью консольной утилиты sc. Однако нужно что бы регистрация службы была скрыта от пользователя (в том плане, что бы не всплывало ни каких посторонних окон). Программная же регистрация службы работает только в 2k и XP, в 7ке просто ничего не происходит.

PS программно я регистрирую так:

function CreateNTService(ExecutablePath, ServiceName: string): boolean;
var
  hNewService, hSCMgr: SC_HANDLE;
  FuncRetVal: Boolean;
begin
  FuncRetVal := False;
  hSCMgr := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);
  if (hSCMgr <> 0) then begin
    hNewService := CreateService(hSCMgr, PChar(ServiceName), PChar(ServiceName),
      STANDARD_RIGHTS_REQUIRED, SERVICE_WIN32_OWN_PROCESS,
      SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL,
      PChar(ExecutablePath), nil, nil, nil, nil, nil);
    CloseServiceHandle(hSCMgr);
    if (hNewService <> 0) then
      FuncRetVal := true
    else
      FuncRetVal := false;
  end;
  CreateNTService := FuncRetVal;
end;