RegSetValue()

[Bill Simmeth]

It seems the function only stores STRING values? How can I store DWORD and BINARY values to the PPC registry?

Thanks.

[Antonio Linares]

Bill,

We are going to modify RegSetValue(), thanks

[Bill Simmeth]

Very good, thanks!

[Antonio Linares]

Bill,

This one should work for strings and numbers (not decimals):

Code: Select all  Expand view  RUN

HB_FUNC( REGSETVALUE )
{
      LPWSTR pW1 = AnsiToWide( hb_parc( 2 ) );

      switch( hb_itemType( hb_param( 3, HB_IT_ANY ) ) )
      {
         case HB_IT_STRING:    
              LPWSTR pW2 = AnsiToWide( hb_parc( 3 ) ); 
              hb_retnl( RegSetValueEx( ( HKEY ) hb_parnl( 1 ), pW1, 0, REG_SZ, ( CONST BYTE * ) pW2,
                                     ( hb_parclen( 3 ) * 2 ) + 1 ) );
              hb_xfree( pW2 );
              break;
             
         case HB_IT_INTEGER: 
         case HB_IT_LONG:      
              hb_retnl( RegSetValueEx( ( HKEY ) hb_parnl( 1 ), pW1, 0, REG_DWORD, ( const BYTE * ) hb_parnl( 3 ), sizeof( DWORD ) ) );
              break;            
      }   

      hb_xfree( pW1 );
}


For binary values we may need to supply a fourth parameter to the function to specify the type, as there is no a Clipper type that may represent binary.

[Bill Simmeth]

Hi Antonio,

Thanks for the efforts. However, I have tried to set a DWORD value but receive a return value of 87, which is "INVALID PARAMETER" and the value is not added to the registry.

Here is a sample of my call to it:

Code: Select all  Expand view  RUN

//nHnd returned from RegOpenKey()
cVal := "AutoEnter"
nVal := 1

nResult := RegSetValue2( nHnd, cVal, nVal )


Also, I had to change your code slightly as the compiler complained about pW2 being declared within the CASE. Here is revised:

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>
#include <item.api>

LPWSTR AnsiToWide( LPSTR );

HB_FUNC( REGSETVALUE2 )
{
    LPWSTR pW1 = AnsiToWide( hb_parc( 2 ) );
    LPWSTR pW2;

    switch( hb_itemType( hb_param( 3, HB_IT_ANY ) ) )
    {
       case HB_IT_STRING:
            pW2 = AnsiToWide( hb_parc( 3 ) );
            hb_retnl( RegSetValueEx( ( HKEY ) hb_parnl( 1 ), pW1, 0, REG_SZ, ( CONST BYTE * ) pW2, ( hb_parclen( 3 ) * 2 ) + 1 ) );
            break;

       case HB_IT_INTEGER:
       case HB_IT_LONG:
            hb_retnl( RegSetValueEx( ( HKEY ) hb_parnl( 1 ), pW1, 0, REG_DWORD, ( const BYTE * ) hb_parnl( 3 ), sizeof( DWORD ) ) );
            break;
    }

    hb_xfree( pW1 );
    hb_xfree( pW2 );
}

#pragma ENDDUMP


[Bill Simmeth]

Antonio,

I would be in favor of adding an optional fourth parameter to allow for BINARY values. I have an important need for this.

Thanks,
Bill

[Bill Simmeth]

Sorry, I forgot to add that using the function to set a REG_SZ (text) value works fine.

[Antonio Linares]

Bill,

We are going to review it asap

[Antonio Linares]

Bill,

Please try this:

Code: Select all  Expand view  RUN

         DWORD dwValue = hb_parnl( 3 );
         ...
         case HB_IT_INTEGER: 
         case HB_IT_LONG:       
              hb_retnl( RegSetValueEx( ( HKEY ) hb_parnl( 1 ), pW1, 0, REG_DWORD, ( const BYTE * ) &dwValue, sizeof( DWORD ) ) );
              break;


[Bill Simmeth]

Antonio, thanks. That change works. So, now REG_SZ and DWORD values are working.