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:
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