Antonio: BUG in Treg32?

[byte-one]

With the new FWH 10/6 and bcc582 the programm hangs with a call to treg32:getbinary() and uses 50% from resources. I change the code to the following:

Code: Select all  Expand view  RUN

METHOD GetBinary( cSubKey ) CLASS TReg32

   local cBuffer:="", nLen := 0 , nType := 0

   ::nError := RegQueryValueEx( ::nHandle, cSubkey, @nType, @cBuffer, @nLen )
   if ::nError != ERROR_SUCCESS
    cBuffer := ""
   endif

return cBuffer

[byte-one]

Antonio, have you seen this?

[Daniel Garcia-Gil]

byte-one

Already changed to next version

Thanks