#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

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 )

#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

<!-- m --><a class="postlink" href="http://social.technet.microsoft.com/Forums/windowsserver/en-US/0aeac9d8-3591-4294-b13e-825705b27730/how-to-disable-uac?forum=winserversecurity">http://social.technet.microsoft.com/For ... ersecurity</a><!-- m -->
*/