Como fazer uma aplicação do Delphi executar como administrador?

Fala galera de Delphi, tudo beleza?

Muitas vezes precisamos que nossos aplicativos desenvolvidos em Delphi
rodem com permissão de administrador.

Certo, e como fazer para o executável já solicitar na abertura
esta permissão?

Há uma forma para já embutir isso na aplicação, vamos a ela!

Primeiro você vai precisar criar um arquivo de Manifest customizado.

Dica: Para saber mais sobre arquivo de Manifest customizado você
pode dar uma olhada nesse link da Embarcadero: Customizing the Windows Application Manifest File

VOCÊ PODE USAR ESSE ARQUIVO AQUI

Se preferir pode usar esse arquivo pronto, basta fazer o seguinte:

* Crie um arquivo de texto e cole o conteúdo abaixo
* Salve na pasta do seu projeto com o nome que preferir, desde que tenha a extensão .manifest, o mais comum é que o arquivo tenha o nome Manifest.manifest

Conteúdo do arquivo de manifest, só altere onde esta escrito NOME DO APLICATIVO COM A EXTENSÃO (.EXE) e coloque o nome do seu executável.
Exemplo para calculadora.exe coloque no arquivo name=”calculadora”

Na parte onde tem version=”1.0.0.0″, coloque a versão do seu sistema.

Exemplo de arquivo manifest.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity type="win32" name="NOME DO APLICATIVO COM A EXTESÃO (.EXE)" version="1.0.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>
      <!--Windows Vista/6.0/Server 2008-->
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
      <!--Windows 7/6.1/Server 2008 R2-->
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
      <!--Windows 8/6.2/Server 2012-->
      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
      <!--Windows 8.1/6.3/Server 2012 R2-->            
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
      <!--Windows 10/10.*-->            
      <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
    </application>
  </compatibility>   
</assembly>

USANDO O MANIFEST NO SEU PROJETO

Siga os passos abaixo:

-> 1 – Clique no menu Project

-> 2 – Clique na opção Options

-> 3- Na janela que abrirá selecione Application

-> 4- No GroupBox Runtime Themes clique no ComboBox e selecione a opção Use custom manifest

-> 5 – O campo Custom Manifest que fica abaixo do ComboBox será habilitado, clique no botão com os três pontinhos para selecionar o arquivo de manifest customizado que você preparou

-> 6 -Compile seu projeto e o executável já contará com a solicitação de elevação, você pode verificar isso rodando o executável ou ainda observando que o ícone da sua aplicação agora tem aquele escudo na frente.

IMPORTANTE: Com o Manifest você deve perceber que ao pressionar F9 para rodar sua aplicação em modo debug o Delphi não conseguirá executar sua aplicação, a solução para isso é fechar a IDE do Delphi e abri-la novamente com a opção Executar como administrador

Algumas imagens com os passos:

Passos do 1 ao 4

Passo 5

Passo 6

Ainda para facilitar o entendimento, gravamos um vídeo explicando estes passos, vamos a ele:

Fonte de referência: https://pt.stackoverflow.com/questions/66666/como-fazer-uma-aplica%C3%A7%C3%A3o-do-delphi-executar-como-administrador
Autor do post original: Henrique Marti

Dúvidas ou sugestões? deixe o seu comentário!

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!