



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:
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!