Deshabilitar UAC del Windows

[karinha]

Buenos dias, como hago para Deshabilitar UAC del Windows? como en el ejemplo abajo:

Code: Select all  Expand view  RUN

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Deshabilitar UAC del Windows 7"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   // EnableLUA
   // 0-Desativar - deshabilitar
   // 1-Ativar    - activar
   DEFINE BUTTON OF oBar ACTION UACV( 1 )

   SET MESSAGE OF oWnd TO "Deshabilitar UAC del Windows 7" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

/ Para Windows Vista ou Seven a chave muda

FUNCTION UACV(nAtivar)
 *****************************************************
 * Grava o registro do aplicativo
 *****************************************************
 LOCAL cRunName, cRunKey, cRegKey

 // EnableLUA
 // 0-Desativar
 // 1-Ativar

 cRegValue:= nAtivar

 cRegKey := "SOFTWARE\Microsoft\Security Center"

 cRegRoot := HKEY_LOCAL_MACHINE

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

RETURN 0

/*
// para Windows XP

FUNCTION UAC(nAtivar)

   *****************************************************
   * Grava o registro do aplicativo
   *****************************************************
   LOCAL cRunName, cRunKey, cRegKey
   // EnableLUA
   // 0-Desativar
   // 1-Ativar
   cRegValue:= nAtivar
   cRegKey := "Software\Microsoft\Windows\CurrentVersion\Policies\System"
   cRegRoot := HKEY_LOCAL_MACHINE
   SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue )

 RETURN 0
*/

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
 

Gracias, saludos

[Antonio Linares]

João,

Tu función está correctamente creando ese valor y asignándole el valor 1.

No llega a desactivarte el UAC ?

[karinha]

maestro, me genera este error:

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\FWH1306\samples\uac.exe (32 bits)
   Size: 2,412,032 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422)
   FiveWin  Version: FWHX 13.05
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 10 secs
   Error occurred at: 06/10/14, 17:18:18
   Error description: Error BASE/1003  Variable does not exist: HKEY_LOCAL_MACHINE

Stack Calls
===========
   Called from: UAC.prg => UACV( 40 )
   Called from: UAC.prg => (b)MAIN( 16 )
 

[Antonio Linares]

Joao,

#define HKEY_LOCAL_MACHINE 2147483650

[karinha]

Maestro, no esta haciendo ningun efecto en windows 7, que puede estar errado?

Code: Select all  Expand view  RUN

#Include "FiveWin.ch"

#define HKEY_LOCAL_MACHINE 2147483650

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Deshabilitar UAC del Windows 7"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   // EnableLUA
   // 0-Desativar - deshabilitar
   // 1-Ativar    - activar
   DEFINE BUTTON OF oBar ACTION UACV( 0 )

   SET MESSAGE OF oWnd TO "Deshabilitar UAC del Windows 7" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

// Para Windows Vista ou Seven a chave muda

FUNCTION UACV(nAtivar)

   *****************************************************
   * Grava o registro do aplicativo
   *****************************************************
   LOCAL cRunName, cRunKey, cRegKey

   // EnableLUA
   // 0-Desativar
   // 1-Ativar

   cRegValue:= nAtivar

   cRegKey := "SOFTWARE\Microsoft\Security Center"

   cRegRoot := HKEY_LOCAL_MACHINE

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

RETURN 0

/*
// para Windows XP

FUNCTION UAC(nAtivar)

   *****************************************************
   * Grava o registro do aplicativo
   *****************************************************
   LOCAL cRunName, cRunKey, cRegKey

   // EnableLUA
   // 0-Desativar
   // 1-Ativar

   cRegValue:= nAtivar

   cRegKey := "Software\Microsoft\Windows\CurrentVersion\Policies\System"

   cRegRoot := HKEY_LOCAL_MACHINE

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

RETURN 0
*/

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)

   ? cValue, cRegKey

   oReg:Close()

RETURN cValue

/*
// Windows server

http://social.technet.microsoft.com/For ... ersecurity
*/
 

Regards, saludos


[Antonio Linares]

Joao,

Aqui se comentá tu solución pero tambien dan otras indicaciones, igual puede servirte:

http://www.vistax64.com/vista-security/37180-user-account-control.html

[Kleyber]

Kapi,

Estas executando o EXE em modo Administrador?

[karinha]

Kapi,

Estas executando o EXE em modo Administrador?

Sim kleyber, não faz nenhum efeito. E a intenção é que não me peça administrador. pois quero executar um programa que pede administrador, entende?

obg. abs.