OpenEuphoria

RE: Nexus v2

• Posted by Don Phillips <EuNexus at yahoo.com> Oct 31, 2002
• 415 views

Hey Jonas, im stumped... my version (same as I sent to RDS) seems not 
have this problem as far as I can tell.  I can modify any setting I 
choose and it will not only propigate to all open editor windows, it is 
also being correctly restored when re-run.

The only thing I can think of is that its possible (although I dont know 
how) that the registry key I am writing to on your system got corrupted.

Below is a small program which will find and remove the main key and all 
values in it from your computer.  Then you can run Nexus again and it 
will reset everything to its default state and recreate the key as it 
should be.

I think I will keep this in all future releases as well just in case...

Let me know if this fixes (or not) the problem you are describing.

==========
include Win32Lib.ew

-- API imports
constant
nAdvApi32				= registerw32Library( "advapi32.dll" ),
nRegDeleteKey			= registerw32Procedure( nAdvApi32, "RegDeleteKeyA", 
{C_LONG,C_POINTER} ),
nRegOpenKeyEx			= registerw32Function( nAdvApi32, "RegOpenKeyExA", 
{C_LONG,C_POINTER,C_LONG,C_LONG,C_LONG}, C_LONG ),
nRegCloseKey			= registerw32Procedure( nAdvApi32, "RegCloseKey", 
{C_LONG} )

-- API constants
constant
nHKEY_CURRENT_USER		= #80000001,
nERROR_SUCCESS			= #00000000

-- Variable declarations
atom Void
atom String, phkResult
atom MainKey

-- Remove the key from the registery
String = allocate_string( "Software\\Nexus" )
phkResult = allocate( 4 )

MainKey = w32Func( nRegOpenKeyEx, 
{nHKEY_CURRENT_USER,String,0,#8,phkResult} )
if MainKey = nERROR_SUCCESS then
    w32Proc( nRegDeleteKey, {nHKEY_CURRENT_USER,String} )
    w32Proc( nRegCloseKey, {peek4u(phkResult)} )
    Void = message_box( "Nexus registry key successfully removed", 
"Nexus", MB_OK )
else
    Void = message_box( "Nexus registry key not found", "Nexus", MB_OK )
end if

free( phkResult )
free( String )
==========

Don