It seems the function only stores STRING values? How can I store DWORD and BINARY values to the PPC registry?
Thanks.
Bill Simmeth
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA
Board index FiveWin for Pocket PC RegSetValue()
Bill,
We are going to modify RegSetValue(), thanks
Very good, thanks!
Bill Simmeth
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA
Bill,
This one should work for strings and numbers (not decimals):
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.
This one should work for strings and numbers (not decimals):
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.
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:
Also, I had to change your code slightly as the compiler complained about pW2 being declared within the CASE. Here is revised:
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:
//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:
#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 ENDDUMPBill Simmeth
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA
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
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA
Sorry, I forgot to add that using the function to set a REG_SZ (text) value works fine.
Bill Simmeth
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA
Bill,
We are going to review it asap
Bill,
Please try this:
Please try this:
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;Antonio, thanks. That change works. So, now REG_SZ and DWORD values are working.
Bill Simmeth
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA