모든 UAC 관리 토큰

Question

처리, 나는 위치에 붙어 오전이 문제에 모든 사람의 제안을 원했다.

내 응용 프로그램은 수많은 장소가 관리자 권한이 필요합니다 79 개 형태로 구성되어 있습니다. 프로그램은 Windows 시작시 실행되므로 기본 관리 토큰 (asAdministator)을 사용할 수 없습니다. Lazarus는 ActiveX dll 파일을 만들 수 없으므로 다른 옵션이 무엇인지, 나는 나사로에서 프로젝트의 대부분을 거의 완료 했으므로 되돌릴 방법이 없다.

Answer 1

응용 프로그램이 정말 관리자 액세스

을 필요로하는 일부 일을 할 않으며 그 경우 정말 큰 경우; 거의 아무도는

후 가장 좋은 방법은 당신이 먹고 싶어 조치 명령 줄 스위치의 말을 전달 자신의 상승 된 사본을 시작하는 것입니다 필요가 없습니다.

는 서비스을 시작하고 싶은 말은 수 있습니다. 당신은 그것에 UAC의 방패 버튼을 만들 : 도우미와

procedure TForm1.StartService(Sender: TObject); 
begin 
    if IsUserAnAdmin then 
    begin 
     //no need to elevate, we're already an admin 
     StartService(); 
     Exit; 
    end; 

    //We're a standard user, relaunch elevated to start the service 
    RunAsAdmin(0, ParamStr(0), '/StartService'); 
end; 

:

그런 다음 클릭 이벤트에 당신이 /StartService 명령 줄 매개 변수를 전달, 자신의 높은 사본을 실행 기능을 사용하여 관리자 권한이 있는지 확인하십시오 :

///This function tells us if we're running with administrative permissions. 
function IsUserAdmin: Boolean; 
var 
    b: BOOL; 
    AdministratorsGroup: PSID; 
begin 
    { 
     This function returns true if you are currently running with admin privelages. 
     In Vista and later, if you are non-elevated, this function will return false (you are not running with administrative privelages). 
     If you *are* running elevated, then IsUserAdmin will return true, as you are running with admin privelages. 

    } 
    b := AllocateAndInitializeSid(
      SECURITY_NT_AUTHORITY, 
      2, //2 sub-authorities 
      SECURITY_BUILTIN_DOMAIN_RID, //sub-authority 0 
      DOMAIN_ALIAS_RID_ADMINS,  //sub-authority 1 
      0, 0, 0, 0, 0, 0,    //sub-authorities 2-7 not passed 
      AdministratorsGroup); 
    if (b) then 
    begin 
     if not CheckTokenMembership(0, AdministratorsGroup, b) then 
      b := False; 
     FreeSid(AdministratorsGroup); 
    end; 

    Result := b; 
end; 

관리자 권한으로 앱을 시작하는 트릭 r은 에서 runas 동사와 에게에서 ShellExecute을 사용하는 것입니다. 당신은 단지 응용 프로그램 시작에 /StartService 명령 줄 스위치를 감시 할 필요가 이제

function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean; 
{ 
    See Step 3: Redesign for UAC Compatibility (UAC) 
    http://msdn.microsoft.com/en-us/library/bb756922.aspx 
} 
var 
    sei: TShellExecuteInfo; 
begin 
    ZeroMemory(@sei, SizeOf(sei)); 
    sei.cbSize := SizeOf(TShellExecuteInfo); 
    sei.Wnd := hwnd; 
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI; 
    sei.lpVerb := PChar('runas'); 
    sei.lpFile := PChar(Filename); // PAnsiChar; 
    if parameters <> '' then 
     sei.lpParameters := PChar(parameters); // PAnsiChar; 
    sei.nShow := SW_SHOWNORMAL; //Integer; 

    Result := ShellExecuteEx(@sei); 
end; 

: 나는 이제까지 편리한 래퍼를 만들었습니다. 이 빠르고 깨끗한 코드에서 FormActivate에 넣습니다. 현실에서 당신은 Application.Run하기 전에, 프로젝트 파일에 넣어 것 :

procedure TForm1.FormActivate(Sender: TObject); 
begin 
    if FindCmdLineSwitch('startService', True) then 
    begin 
     //If we're not an admin, then use ShellExecute to launch ourselves as one 
     if not IsUserAdmin then 
     begin 
      //Relaunch ourselves as an admin 
      Toolkit.RunAsAdmin(0, ParamStr(0), '/StartService'); //don't forget to pass the command option 
      Application.Terminate; 
      Exit; 
     end; 

     //We are an admin; do the updates. 
     StartOurService(); 
     MessageDlg('Service started!', mtInformation, [mbOk], 0); 

     Application.Terminate; 
     Exit; 
    end; 
end; 

주 : 퍼블릭 도메인으로 공개 코드를. 기여가 필요하지 않습니다.