Delphi XE2: Executando Automaticamente Privil�gios de Administrador

Ol� Pessoal! Essa semana eu me deparei com um enorme problema em minha aplicaç�o. Eu precisava que esta iniciasse quando o Windows fosse inicializado. Ao rodar a aplicaç�o no Windows XP tudo rodou perfeitamente, entretanto, ao rodar no Windows Vista e Seven a situaç�o se complicou, pois a aplicaç�o s� acessa os registros do Windows se for executada como administrador ou em modo de compatibilidade XP. E como precisamos que a aplicaç�o se inicie automaticamente n�o podemos ficar contanto com a boa vontade do usu�rio de ficar configurando o execut�vel. Nem consigo imaginar o n�mero de ligaç�es de suporte. Como ferramentas de trabalho, estaremos utilizando o Delphi XE2 e o Notepad.

Os passos a seguir requerem muita atenç�o para perfeito funcionamento.

Abra o NotePad (Bloco de Notas) de seu computador e insira os seguintes c�digos XML:

Listagem 1: Win7UAC.manifest


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity type="win32" name="ProjetoTeste.exe" version="3.1.0.0" processorArchitecture="*"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" publicKeyToken="6595b64144ccf1df" language="*" processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>
        </requestedPrivileges>
    </security>
  </trustInfo>
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
      <!--The ID below indicates application support for Windows Vista -->
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
      <!--The ID below indicates application support for Windows 7 -->
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
    </application>
  </compatibility>
</assembly>

Figura 1: Win7UAC.manifest

Na 3� linha substitua o nome do ProjetoTeste.exe pelo SeuProjeto.exe. Clique em Save As (Salvar Como) e atribua o seguinte nome �Win7UAC.manifest�. O arquivo deve ser salvo no mesmo diret�rio do execut�vel.

Abra novamente o Notepad (bloco de notas) em branco e insira o seguinte c�digo:

Listagem 2: Win7UAC.rc


1 24 "Win7UAC.manifest"

Figura 2: Win7UAC.rc

Clique em Save As (Salvar Como) e atribua o seguinte nome �Win7UAC.rc�. Salve, tamb�m, este arquivo no mesmo diret�rio do execut�vel.

Agora, vamos adicionar este �ltimo arquivo ao nosso projeto. No Menu principal do Delphi v� at� Project | Add to Project e selecione o arquivo �Win7UAC.rc�. Na TreeView do Project Manager dever� aparecer o arquivo adicionado conforme figura abaixo:

Figura 3: Win7UAC no Project Manager

Compile a aplicaç�o. Ap�s o fim da compilaç�o v� at� o diret�rio do execut�vel e verifique se foi criado o arquivo Win7UAC.RES. Esse arquivo deve ser usado como opç�o de inicializaç�o do sistema e � atrav�s dele que ser�o dados os privil�gios de rodar como administrador automaticamente. Quando compilamos uma aplicaç�o, ela automaticamente gera um arquivo SeuProjeto.RES que ser� usado como Manifest inicial. O que iremos fazer � substituir esse arquivo pelo nosso manifest.

Assim sendo, v� at� o Menu Project | Options | Application e onde estiver marcada a opç�o �Enable RunTime Themes� substitua por �Use Custom Manifest�. Logo abaixo aparecer� uma opç�o para que voc� selecione o arquivo manifest que deseja utilizar. Selecione o arquivo �Win7UAC.manifest� criado e execute sua aplicaç�o.

Figura 4: Customizando o arquivo Manifest

Execute sua aplicaç�o e ver� que n�o ser� mais exigido o privil�gio de administrador para a utilizaç�o e manipulaç�o de registros.

Um grande abraço e at� o pr�ximo artigo.

Delphi XE2: Executando Automaticamente Privil�gios de Administrador

Veja neste artigo como configurar sua aplicação para ser executada automaticamente com privilégios de Administrador, tendo permissão, por exemplo, para alterar o registro do Windows.

Artigos relacionados