Clipper On Line • Ver Tópico - RUNASADMIN - RUNASS.PRG By Rochinha

RUNASADMIN - RUNASS.PRG By Rochinha

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

RUNASADMIN - RUNASS.PRG By Rochinha

Mensagempor Kapiaba » 05 Nov 2014 10:01

Bom dia Rochinha tire uma dúvida: Se eu fizer isto para o REGSAM.EXE da Microsoft, ele entrará como administrador, sem eu precisar entrar com o Prompt de comando em modo administrador?

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cCaminhoCompleto := "C:\INST_NFE\REGASM.EXE"
   LOCAL lXPCompativel    := .T.

   /*
   Os parâmetros são:

   cCaminhoCompleto - Caminho completo do aplicativo, exemplo:
   c:\pasta\subpasta\outrapasta\sistema.exe

   lXPCompativel - colocar .t. se caso quer forçar execução em modo de
   compatibilidade

   Exemplo:
   ...
   RunASS( "c:\pasta\subpasta\outrapasta\sistema.exe", .f. )
   ...
   */

RETURN NIL

FUNCTION RunASS( cCaminhoCompleto, lXPCompativel )

   *****************************************************
   * Grava o registro do aplicativo
   *****************************************************

   LOCAL cRunName, cRunKey, cRegKey

   DEFAULT lXPCompativel := .F.

   cRegRoot := HKEY_CURRENT_USER

   cRegKey  := "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"

   cRegValue:= ["]+cCaminhoCompleto+["="]+iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN"]

   SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue )

   cRegValue:= ["]+cFileName(cCaminhoCompleto)+["="]+iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN"]

   SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue )

RETURN nil

/*
As funções que usei aqui foram elaboradas para uso com o Fivewin que usa a classe tReg32().

Função SetRegVar()
*/

FUNCTION SETREGVAR( nKey, cRegKey, cSubKey, uValue )

   LOCAL oReg, cValue

   nKey := IF( nKey == NIL, HKEY_CURRENT_USER, nKey )

   uValue := IF( uValue == NIL, "", uValue )

   oReg := TReg32():Create( nKey, cRegKey )

   cValue := oReg:Set( cSubKey, uValue )

   oReg:Close()

RETURN cValue

// FIM DO PROGRAMA


Pergunta também está no Fivein Brasil. Very thanks.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

RUNASADMIN - RUNASS.PRG By Rochinha

Mensagempor Kapiaba » 05 Nov 2014 10:40

Rochinha:

HKEY_CURRENT_USER

O que de vo informar?

Obg. abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

RUNASADMIN - RUNASS.PRG By Rochinha

Mensagempor Euclides » 07 Nov 2014 22:16

Kapi, seria isso?

#define HKEY_CURRENT_USER 2147483649
Euclides
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 154
Data de registro: 12 Mai 2007 14:07
Cidade/Estado: São Paulo, Capital
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

RUNASADMIN - RUNASS.PRG By Rochinha

Mensagempor rochinha » 14 Nov 2014 20:31

Amiguinhos,

Modificar o inicio da função RunASS() para o trecho abaixo
FUNCTION RunASS( cCaminhoCompleto, lXPCompativel )
   *****************************************************
   * Grava o registro do aplicativo
   *****************************************************

   LOCAL HKEY_CURRENT_USER   := 2147483649
   LOCAL HKEY_LOCAL_MACHINE  := 2147483650
   LOCAL HKEY_CURRENT_CONFIG := 2147483653
   LOCAL KEY_ALL_ACCESS      := 983139

   LOCAL cRunName, cRunKey, cRegKey


A intenção de nossa função RunASS() é manipular o registro afim de liberar as restrições de acesso ao S.O.
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: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 13 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
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro