Clipper On Line • Ver Tópico - REGKey: Colocando seu aplicativo rodando como Administrador.

REGKey: Colocando seu aplicativo rodando como Administrador.

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor rochinha » 02 Set 2014 17:24

Amiguinhos,

Neste REGKey voce configura um aplicativo e diretorio para ser executado sem aquelas perguntas chatas, "Deseja executar blablabla..."
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags]
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"C:\\Arquivos de programas\\MeuSistema\\SISTEMA.EXE"="RUNASADMIN"
"C:\\Arquivos de programas\\MeuSistema\\INDEXA.EXE"="RUNASADMIN"
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:]
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\Arquivos de programas]
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\Arquivos de programas\MeuSistema]
"sistema.exe"="RUNASADMIN"
"indexa.exe"="RUNASADMIN"
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4221
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 511 vezes
Mens.Curtidas: 183 vezes

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor Pablo César » 02 Set 2014 19:43

Ahhh Muito boa dica Rochinha !

Obrigado por compartilhar. :)
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5539
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 151 vezes

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor julianocf » 11 Set 2014 10:52

Grande Rochinha, ótima dica! :D

Só vou adicionar uma observação para quem usa essa dica em um programa executado de uma unidade de rede mapeada e com UAC ativado, quando for buscar pelo diretório do programa, será retornado no modo UNC (\\server\C\programa) e não Z:\Programa;

Att,
Juliano
julianocf
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 7
Data de registro: 11 Ago 2011 14:52
Cidade/Estado: Ubatuba SP
Curtiu: 0 vez
Mens.Curtidas: 1 vez

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor clodoaldomonteiro » 12 Abr 2015 22:09

Rochinha,
Tem como colocar isso direto no instalador?
No innosetup por exemplo?
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Avatar de usuário

clodoaldomonteiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 620
Data de registro: 30 Dez 2006 12:17
Cidade/Estado: Teresina-PI
Curtiu: 22 vezes
Mens.Curtidas: 11 vezes

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor rochinha » 13 Abr 2015 16:46

Amiguinho,

Veja o exemplo:
[Setup]
...

[Languages]
Name: "brazilianportuguese"; MessagesFile: "compiler:languages\BrazilianPortuguese.isl"

[Run]
...

[Icons]
...

[Files]
...

[code]
var
  path:String;

procedure UAC(ativar:Boolean);
var
  versao:Cardinal;
  valor:Cardinal;
begin
  versao:=GetWindowsVersion() shr 24;
  if versao=6 then
  begin
    valor:=0;
    if RegQueryDWordValue(HKLM,'Software\Microsoft\Windows\CurrentVersion\Policies\System','EnableLUA',valor) then
    begin
        if (valor<>0) and (not ativar) then
           RegWriteDWordValue(HKLM,'Software\Microsoft\Windows\CurrentVersion\Policies\System','EnableLUA',0);
        if (valor<>1) and (ativar) then
           RegWriteDWordValue(HKLM,'Software\Microsoft\Windows\CurrentVersion\Policies\System','EnableLUA',1);
    end;
  end;
end;

function getPath(Param: String):String;
begin
  Result:=path;
end;

function InitializeSetup():Boolean;
begin
  path:='none';
  UAC(False);
  //if RegQueryStringValue(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{D79922B6-22F2-49B8-ABE0-6F572932C6EF}_is1','Inno Setup: App Path',path) then
  //begin
  //  if  CompareText(path,'none')<>0 then
      Result:=true
  //  else
  //  begin
  //    MsgBox('Nenhuma instalaçao do FENIX 10 foi encontrada! Esta atualizaçao será abortada!', mbError, MB_OK);
  //    //abort();
  //  end;
  //end
  //else
  //begin
  //  MsgBox('Nenhuma instalaçao do FENIX 10 foi encontrada! Esta atualizaçao será abortada!', mbError, MB_OK);
  //  //abort();
  //end;
end;

procedure DeinitializeSetup();
begin
  UAC(True);
  //MsgBox('Atualizaçao Finalizada!',mbInformation, MB_OK);
end;
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4221
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 511 vezes
Mens.Curtidas: 183 vezes

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor fladimir » 18 Mai 2016 18:30

Rochinha fiquei na dúvida se isso q vc postou aki é relacionado a este outro tópico deste link... sobre rodar como Adm o sistema e no caso qual a relação disso com UAC?

Pelo q eu entendi neste tópico vc abrange a questão de já instalar desabilitando o UAC e deixando pra rodar como Adm é isso?

[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


DESKTOP CONSOLE Harbour | MinGW | DBF | CDX | FastReport | MySQL
DESKTOP VISUAL... Harbour | MinGW | Xailer | MariaDB Nativo | FastReport
MOBILE Android/IOS e WEB - Windev Mobile 22
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2376
Data de registro: 15 Nov 2006 19:21
Curtiu: 26 vezes
Mens.Curtidas: 140 vezes

REGKey: Colocando seu aplicativo rodando como Administrador.

Mensagempor rochinha » 18 Mai 2016 19:00

Amiguinhos,

A solução proposta define diretamente no registro que uma aplicação deva ser considerada como de uso elevado.

Só vai depender se o Windows estiver de bom humor e permitir a execução já elevada sem reiniciar.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4221
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 511 vezes
Mens.Curtidas: 183 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: JoséQuintas, rubens e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro