FiveTech Software tech support forums

tks, it works !

now i am able to create a new var....but now i'am not able to cancel this new var using the function:

oreg:delete(cSubKey)

also using the function RegDeleteKey(oreg:nHandle,cSubKey) (it returns code error 2)

the cSubKey always exists

...additional help ?

tks

... want to rewrite the regopenkey() function you can try to add the folowing code to your system: #pragma BEGINDUMP HB_FUNC( REGOPENKEY ) // ( nkey, cSubKey, @nHandle ) --> nResult { HKEY hKey = ( HKEY ) hb_parnl( 1 ); HKEY hResult; #ifndef UNICODE hb_retnl( RegOpenKey( hKey, hb_parc( 2 ), &hResult ...

So now we comes closer to the prob: As reported above, the function My_Get_Reg32( cKey, cSubkey, uVar) works well, when calling separately. Also the function TimeZone() returns the right value 2. But when I compile it in my main app the function My_Get_Reg32() returns ...

... ejemplos samples\MyDLL.prg y samples\TestMyDL.prg, que muestran como construir una DLL con Harbour y como usarla. * Nuevo: Nuevo método GetBinary( cSubKey ) en la clase TReg32. Devuelve un valor binario desde el registro. * Corrección: Se han añadido unas líneas olvidadas a la función OleInvoke() ...

... samples\MyDLL.prg and samples\TestMyDL.prg show how to build a Harbour self contained DLL and how to use it. * New: Class TReg32 Method GetBinary( cSubKey ). It retrieves binary values from the registry. * Fix: Class TActiveX added missing lines in function OleInvoke(). * Enhancement: Class TActiveX ...

... had a typo in my keyname, sorry. :oops: I just forgot a space in one name. Maybe I need new glasses :wink: Now MsgInfo( Len( oReg32:GetBinary( <cSubKey> ) ) ) shows 164. This should be the right value. Many thanks for your help :D

Stefan,

> it returns an empty string

Try this:

MsgInfo( Len( oReg32:GetBinary( <cSubKey> ) ) )

Please let me know if the above is zero, thanks

... @nType, @cData, @nSize) REGCLOSEKEY( hKey ) cData = LEFT( cData, AT( CHR( 0 ), cData ) - 1 ) RETURN cData DLL32 FUNCTION REGOPENKEY( hKey AS LONG, cSubKey AS LPSTR, nOptions AS DWORD, nSamDesired AS DWORD, @nHandle AS PTR ) AS LONG; PASCAL FROM "RegOpenKeyExA" LIB "advapi32.dll" DLL32 FUNCTION ...

... IMAGE ...". Usa la misma sintáxis que "AS REDEFINE BITMAP ...", pero soporta muchos más tipos de imágenes. * Mejora: La función RegSetValue( nKey, cSubKey, uValue ) ahora soporta valores númericos también, proporcionado por uValue. * Mejora: La clase TBtnBmp muestra múltiples líneas de título cuando ...

... It was missing. It uses the same syntax AS REDFINE BITMAP ... but it supports much more image types. * Enhancement: function RegSetValue( nKey, cSubKey, uValue ) now supports numeric values too supplied as uValue. * Enhancement: Class TBtnBmp shows a multiple lines caption when CRLF used into ...