Configurar aplicativo com Administrador(RUNASAdmin).

[rochinha]

Amiguinhos,

Para rodar aplicativos como administrador a mesma precisa estar configurada no registro e descobri uma chave no registro que faz isto.

Portanto saquei a informação e posto aqui para que testem e vejam se funciona.

O conteúdo do arquivo .REG que pode ser executado via Prompt de comando é:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"C:\\PASTA\\SISTEMA.EXE"="RUNASADMIN"
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\PASTA]
"sistema.exe"="RUNASADMIN"

Onde sistema é o nome de seu aplicativo e pasta é o nome da pasta que esta o mesmo.

Pensando em automatizar criei uma função em meu sistema(Fivewin), que pode ser implementada por todos, na linguagem preferida.

Função RunASS:

FUNCTION RunASS( cCaminhoCompleto, lXPCompativel )
   *****************************************************
   * Grava o registro do aplicativo 
   *****************************************************
   DEFAULT lXPCompativel := .F.
   LOCAL cRunName, cRunKey, cRegKey
   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

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. )
...

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

[sambomb]

Pode colocar o Default do nome do exe para GETMODULEFILENAME( GETINSTANCE() )
Assim o padrão vai ser o nome do seu executável, independente de ele ter sido renomeado ou não. ;)

FUNCTION RunASS( cCaminhoCompleto, lXPCompativel )
*****************************************************
* Grava o registro do aplicativo
*****************************************************
LOCAL cRunName, cRunKey, cRegKey

   DEFAULT cCaminhoCompleto := GETMODULEFILENAME( GETINSTANCE() ), 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

[rochinha]

Amiguinhos,

Obrigado Sambomb.

Pode colocar o Default do nome do exe para GETMODULEFILENAME( GETINSTANCE() )

Eis um pequeno exemplo e uma modificação da função RunASS():

#include "fivewin.ch"

FUNCTION Main()
   RunASS( GETMODULEFILENAME( GETINSTANCE() ), .f. )
   return .t.

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
   DEFAULT lXPCompativel := .F.
   cRegRoot := HKEY_CURRENT_USER
   cRegKey  := "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"
   cRegValue:= iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN]
   SETREGVAR( cRegRoot, cRegKey, cCaminhoCompleto, cRegValue )
   RETURN .t.

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

[fladimir]

No caso colocaria pra chamar a função q define o App pra rodar como administrador no inicio da mesma e depois o sistema continua normalmente ou teria q reiniciar o micro?

[rochinha]

Amiguinhos,

Aqui é apresentado de forma programática o salvamento destas características no registro direto de seu aplicativo.

Dependendo do uso que fará voce pode usar as dicas colocadas em Reiniciar sistema que saiu do ar brutalmente.

Onde diz "RUNAS" coloque "RUNASS" caso não funcione.

[janio]

Tem alguma função em harbour puro que substitua essa função/classe do fivewin (tReg32)?

Janio

[rochinha]

Amiguinhos,

janio
Não consigo olhar no código do meu sistema porque o hd com toda minha vida parou.

Lá sei que tenho vários códigos com métodos de escrita e leitura do registro do windows.

Mas se quiser usar o regedit.exe voce poderá mandar os comandos contidos em um arquivo .REG contendo os caminhos, pastas e chaves que queres modificar:

Sintaxes:
Exporta todo o registro(backup do registro incluindo o usuário corrente)
REGEDIT /E pathname

Exporta parte do registro(somente um caminho desejado)
REGEDIT /E pathname "RegPath"

Importa script de registro(geralmente um arquivo .REG) de forma interativa.
REGEDIT pathname

Importação silenciosa
REGEDIT /S pathname

Abre a GUI/Tela do aplicativo
REGEDIT

Permite abrir multiplas sessões do aplicativo
REGEDIT /m

Chaves:
/E : (E)xporta
/S : Importação (S)ilenciosa

Você também poderá comandar mudanças no registro usando o comando REG contido na sessão Prompt do MS-DOS. Ao acionar o comando você passa de forma direta comandos como parâmetros.

Neste primeiro momento você usará somente 2(dois) comandos, ADD e DELETE. Para mais comandos basta enviar REG /? ou REG ADD /?:

Sintaxe:

REG ADD [ROOT\]RegKey /v ValueName [/t DataType] [/S Separator] [/d Data] [/f]
REG ADD [ROOT\]RegKey /ve [/d Data] [/f] -- Set the (default) value

REG DELETE [ROOT\]RegKey /v ValueName [/f]
REG DELETE [ROOT\]RegKey /ve [/f] -- Remove the (default) value
REG DELETE [ROOT\]RegKey /va [/f] -- Delete all values under this key

Chaves:
ROOT :
HKLM = HKey_Local_machine (default)
HKCU = HKey_current_user
HKU = HKey_users
HKCR = HKey_classes_root
ValueName : Valor ou sequencia, dentro da chave selecionada que se deseja editar.
/d Data : Dado que se deseja armazenar como "String", inteiro etc
/f : Força atualização sem perguntar.
\\Machine : Nome de uma máquina remota. Caso não use a máquina corrente será usada como destino. Somente as chaves HKLM e HKU são permitidas em máquinas remotas.
FileName : Nome do arquivo que contém/conterá os dados do registro a serem manipulados.
KeyName : Nome da chave que carregará o conteudo salvo.
/S : Lista todas sub-chaves e valores.
/S Separator : Caracter usado para separar multi valores em REG_MULTI_SZ. Default é "\0"
/t DataType : Tipo do dado sendo manipulado, REG_SZ (default) | REG_DWORD | REG_EXPAND_SZ | REG_MULTI_SZ
/reg:32 : Força REG.exe a escrever na localização 32-bit do registro.
/reg:64 : Força REG.exe a escrever na localização64-bit do registro.
Output : /od escreve (somente os (D)iferentes), /os (somente os iguai(S)), /oa (Todos), /on (não escreve nada).


Exemplos:

REG ADD HKCU\Software\SS64 /v Sample /d "some test data"
REG QUERY HKCU\Software\SS64 /v Sample
REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v HideFastUserSwitching /t REG_DWORD /d 1


Interessante:

Antes de fazer alterações no registro geralmente o sistema operacional pede para reiniciar a máquina. Para evitar isto, é necessário desativar esta característica fazendo com que as alterações possam ser feitas e finalizadas sem a reinicialização, assim:

RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters ,1 ,True

Resumindo:

Através de programação e alguns comandos RUN você irá programar sua aplicação para "envenenar" o registro.

Lembrando que tudo isto acima explanado exige usuário elevado para modificações.

[janio]

Ótimo, Rochinha!

Janio