FiveTech Support Forums

#include "fivewin.ch"

#define  HKEY_LOCAL_MACHINE      2147483650        // 0x80000002

function main()

   local nKey    := HKEY_LOCAL_MACHINE
   local cSubKey := "Software\VfpRegTest"
   local cValue  := "TestREG_MULTI_SZ"  
   
   xbrowse( READ_REG_MULTI_SZ( nKey, cSubKey, cValue ) )

return nil

#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
#include <hbapiitm.h>

LPSTR LToStr( long w );

static int NULL_tokenCount( const char * szLine, int nLen )
{
   int ul = 0, nTokens = 1;
   
   while( ul < nLen )
   {
      if( szLine[ ul ] == NULL )
      {
         ++nTokens;
         while( ul + 1 < nLen && szLine[ ul + 1 ] == NULL )
            ++ul;
      }
      ++ul;
   }

   return nTokens;
}

static PHB_ITEM NULL_arrayToken( const char * szLine, int nLen )
{
   int ul;
   int nTokens = NULL_tokenCount( szLine, nLen ) - 1;
   PHB_ITEM pArray;
   int nToken, nStart;
   
   pArray = hb_itemArrayNew( nTokens );
   
   if( nTokens > 0 ){
      for( ul = nStart = nToken = 0; ul < nLen; ++ul )
      {
         if( szLine[ ul ] == NULL )
         {
            hb_arraySetCL( pArray, ++nToken, szLine + nStart,  ul - nStart  );
            while( ul + 1 < nLen && szLine[ ul + 1 ] == NULL )
               ++ul;
            nStart = ul + 1;
         }  
      }
      hb_arraySetCL( pArray, ++nToken, szLine + nStart, ul - nStart );        
   } else
      hb_arraySetC( pArray, 1, szLine ); 

   return pArray;
}

HB_FUNC( READ_REG_MULTI_SZ )
{
   HKEY hKey = ( HKEY ) hb_parnl( 1 );
   HKEY hHandle;   
   char * cSubKey = ( char * ) hb_parc( 2 );
   char * cValue  = ( char * ) hb_parc( 3 );
   long nErrCode;
   DWORD lpType = REG_MULTI_SZ;
   DWORD lpcbData;
   BYTE * lpData;
   PHB_ITEM pArrayReturn;
   
   nErrCode = RegOpenKey( hKey, cSubKey, &hHandle);
   
   if( nErrCode != 0 ) 
   {
      pArrayReturn = hb_itemArrayNew( 0 );
      hb_itemReturnRelease( pArrayReturn );
   }
   RegQueryValueEx( hHandle, cValue, NULL, &lpType, NULL, &lpcbData );
   
   lpData = ( BYTE * ) hb_xgrab( lpcbData );
   
   nErrCode = RegQueryValueEx( hHandle, cValue, NULL, &lpType, lpData, &lpcbData );

   if( nErrCode != 0 ) 
   {
      pArrayReturn = hb_itemArrayNew( 0 );
      RegCloseKey( hHandle );
      hb_itemReturnRelease( pArrayReturn );
   }
   
   pArrayReturn = NULL_arrayToken( ( const char * )lpData, lpcbData );
   
   hb_xfree( lpData );
   
   hb_itemReturnRelease( pArrayReturn );

}

#pragma ENDDUMP