Adding a register key to the Windows register - SOLVED

[driessen]

Hello,

I need this register key :

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Security]
"DisableWarningOnIncludeFieldsUpdate"=dword:00000001

How can I check in my application if this key already exists?
And in case it doesn't exist, how can I add it in my application?

Thank you very much in advance for any help.

[Antonio Linares]

Dear Michel,

Please try this and let me know what you get:

Code: Select all  Expand view  RUN

#define  HKEY_CURRENT_USER       2147483649  

   local nHandle, nValue

   if RegOpenKey( HKEY_CURRENT_USER,;
         "Software\Microsoft\Office\16.0\Word\Security", @nHandle ) == 0
      RegQueryValue( nHandle, "DisableWarningOnIncludeFieldsUpdate", @nValue )
      MsgInfo( nValue, ValType( nValue ) )
      RegCloseKey( nHandle )
   endif

[driessen]

Antonio,
Thank you for your message.
Unfortunately, the register key is not added.

[Antonio Linares]

Dear Michel,

what is shown from the MsgInfo() ?

[driessen]

Only a backslash

[Antonio Linares]

Dear Michel,

Please use Microsoft regedit.exe and try to locate it manually

[Jimmy]

hi,

Unfortunately, the register key is not added.

have you start it "as Admin"

[driessen]

Antonio,

To find the registry key manually is no problem.

Jimmy,

I am administrator.

[Antonio Linares]

Dear Michel,

Do you have the entry "DisableWarningOnIncludeFieldsUpdate" already created ?

[driessen]

Antonio,

I have created the key manually. That is no problem.

But I want my application to add the key automatically so that it is installed on all PC’s on which my applications are used.

This key is necessary to prevent a mastbos is shown in Word everytime a document is used that has been mailed to my customer. My customers use hundredthousands documents, so by this key a click is avoided everytime a document is opened.

[Otto]

Hello Michel,

Maybe you have to grant the user admin rights when setting this key.

I want to remind you that you need to set this key for every user.

Best regards,
Otto

[Marc Venken]

Not my cup of thee, but in this code there is also a register search and add. Maybe it is helpfull

From Karinha

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41666#p249622

Code: Select all  Expand view  RUN

   if (RegOpenKey(HKEY_CURRENT_USER, KEY_DISABLETASKMGR, &hKey) != ERROR_SUCCESS)
        if (RegCreateKey(HKEY_CURRENT_USER, KEY_DISABLETASKMGR, &hKey) != ERROR_SUCCESS)
            return 0;

    if (bEnableDisable) // Enable
    {
        r = RegDeleteValue(hKey, VAL_DISABLETASKMGR);
    }
    else                // Disable
    {
        val = 1;
        r = RegSetValueEx(hKey, VAL_DISABLETASKMGR, 0, REG_DWORD, (BYTE *)&val, sizeof(val));
    }

    RegCloseKey(hKey);

    return (r == ERROR_SUCCESS ? 1 : 0) ;
}

 

[karinha]

look,

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42673&p=256920&hilit=TReg32&sid=f15a2b41e9a2f5c0991f021a042fe9ab&sid=f2ce5d0132445ffed2f9e303a9e535a2#p256920

Regards, saludos.

[alerchster]

Code: Select all  Expand view  RUN

// Managing Register services from FiveWin

#define  HKEY_CLASSES_ROOT       2147483648
#define  HKEY_CURRENT_USER       2147483649
#define  HKEY_LOCAL_MACHINE      2147483650
#define  HKEY_USERS              2147483651
#define  HKEY_PERFORMANCE_DATA   2147483652
#define  HKEY_CURRENT_CONFIG     2147483653
#define  HKEY_DYN_DATA           2147483654

//---------------------------------------------------------------------------//

function Main()

 
      LOCAL nHKey    := HKEY_CURRENT_USER
      LOCAL cRegPath := "SOFTWARE\Microsoft\Office\16.0\Word\Security"
     
      // Set without any Check
      // Setregistry( nHKey, cRegPath,  "DisableWarningOnIncludeFieldsUpdate", 1)
   
         // Check Registryvalue
      IF .NOT. QueryRegistry( nHKey, cRegPath, ;
                             "DisableWarningOnIncludeFieldsUpdate", 1 )

         // ... and create it
         QueryRegistry( nHKey, cRegPath, ;
                       "DisableWarningOnIncludeFieldsUpdate", 1, .T. )
      ENDIF
       
      MsgInfo(GetRegistry( nHKey, cRegPath, "DisableWarningOnIncludeFieldsUpdate" ))  // result: 1
   
   return nil

//---------------------------------------------------------------------------//

[driessen]

Alerchster,

Thank you so much for your help. It works fantastic now.

One more little question.

Can you tell me how to delete a registry key?

Thank you very much.