Permissão Administrador

[Marcos Felipe]

Olá a todos, bom eu andei pesquisando e encontrei um código postado pelo Jhonas, que verifica se o usuário logado é um usuário administrador, mais o que eu preciso mesmo é verificar se o programa aberto tem permissão administrador, por exemplo se clicar com o botão direito do mouse e ir em Executar como administrador, o programa deve funcionar perfeitamente, caso abrir o programa sem permissão administrador o programa feche.

Obrigado a todos que poderem me ajudar.

[Jhonas]

bom eu andei pesquisando e encontrei um código postado pelo Jhonas, que verifica se o usuário logado é um usuário administrador

Se voce usar esse código não tem o que errar...

http://scriptbrasil.com.br/forum/index.php...st&p=569621

Amigo, a sua dificuldade está em não saber onde usar o código ... na verdade ele deve ser o primeiro código a ser executado, logo após a criação do form

exemplo: se voce usa um form de login para entrar no programa, voce deve executar o código abaixo, assim que ele form criado e mostrado na tela

Uses IsAdministrator;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsAdmin = true then
      showmessage('O usuário logou como Administrador')
   else
      begin
         showmessage('O usuário não é Administrador');
         Application.Terminate;
      end;
end;

dessa forma se o usuario não tiver logado como administrador, o programa não será executado

abraço

[Marcos Felipe]

Jhonas isso eu sei fazer, mais acontece que a pessoa entrar em conta normal e clicar com botão direito e "executar como administrador", esse seu código vai falar que não tem permissão administrador, preciso que ele identifique se realmente tem permissão adminsitrador ou se pelo menos foi "executado em modo administrador"

obrigado.

[Jhonas]

OK.. nesse caso veja esse link.. vai te dar uma idéia de como proceder

http://social.technet.microsoft.com/Forums...2b-457d3cb80b77

abraço