Privilégios administrativos.

[~EvilCode 93]

Como eu faço para que meu programa só funcione com privilégios administrativos? Tipo, botão direito, executar como administrador(Caso não tenha tais permissões)?

[ℛiqu∊ 15]

Crie uma Unit no delphi e salve com o nome de IsAdministrator.pas e salve na pasta Bin do delphi

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Depois é só chamar a função

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Créditos: Jhonas

[~EvilCode 93]

Eu já tinha visto essa função, ela serve para dizer se o usuário tem privilégios de administrador, mas o que eu preciso saber é se minha aplicação está sendo executada com todos os privilérios de admin, ReadWrite, KillTask, DeleteFiles, etc.., essas coisas em alguns Windows Seven filhos da mãe não rodam... então preciso forçar a execução do modo administrador, ou descobrir alguma forma de saber se posso deletar arquivos, e essas coisas ditas anteriormente, se meu programa tem privilégios, ou fazer meu programa ser executado como adminstrador.

[AceStryker 32]

Isto por incrível que pareça não é nada difícil, aprendi esta técnica quando fiz meu curso sobre Windows.O que você precisa fazer é um Manifesto para o UAC(User Access Control), e embuti-lo em sua aplicação nas resources:

Crie um arquivo XML chamado "UAC.manifest" com o que está abaixo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Antes do manifesto ser criado você precisa embutir ele nas resources mas com o parâmetros específicos, como fiz abaixo:

 

1 24 "UAC.manifest"

 

1 é o índice do nosso manifesto

24 é o tipo do recurso RT_MANIFEST

"UAC.manifest" é o arquivo XML contendo o manifesto

 

Depois disso transforme em RES como já sabe(BCC32) e adicione no seu projeto delphi({$R UAC.RES})

 

Teste e veja se deu certo.

[~EvilCode 93]

Esse do XML acho que vai me servir, pelo que me lembro(sim, esqueci disso) quando estava criando programas em assembly tinha isso aí, mas nunca cheguei a usar e acabei esquecendo, vou dar uma olhada também a respeito do RunAs(Dito pelo msn), pois também irei precisar dele..., assim que eu terminar de testar edito.

[AceStryker 32]

Nunca tentei usar o RunAs pois sempre achei que não funcionaria, porque não acho que a Microsoft deixaria os programas se abrirem como administrador tão facilmente, e pois é um método muito mais longo que um manifesto simples...

[~EvilCode 93]

Não funcionou, ele está em resources no local correto, mas não roda somente como administrador, roda normalmente.