OpenEuphoria

2. Re: Saving configs (was: Nexus v2)

• Posted by euman at bellsouth.net Nov 01, 2002
• 418 views

Hey, mind my stepping in on the conversation?

The registry set/get is the same as far as I can tell by the MS-SDK
but Jonas is right about their being security features in 2k,NT,XP

Below I have some registry code that is untested on 2000 Pro, NT, XP
perhaps someone might be interested (maybe even you,  Don) if it
works well enough, that is.......

[Never submitted, Untested and "possibly buggy" code ahead, BEWARE]

<snip here>
-- Registry Code (Create/Delete Key only!) by Euman 2002
-- perhaps I'll actually write the rest of the wrappers someday.

with type_check
without warning

include machine.e
include dll.e
include msgbox.e

atom kernel32, advapi32
kernel32 = open_dll("kernel32.dll")
advapi32=open_dll("advapi32.dll")

constant
  xRegCreateKeyEx =
define_c_func(advapi32,"RegCreateKeyExA",{C_LONG,C_POINTER,C_LONG,C_POINTER,
C_LONG,C_LONG,C_POINTER,C_POINTER,C_POINTER},C_LONG)
  ,xRegSetValueEx =
define_c_func(advapi32,"RegSetValueExA",{C_LONG,C_POINTER,C_LONG,C_LONG,C_IN
T,C_LONG},C_INT)
  ,xRegQueryValueEx =
define_c_func(advapi32,"RegQueryValueExA",{C_LONG,C_POINTER,C_POINTER,C_POIN
TER,C_POINTER,C_POINTER},C_INT)
  ,xRegCloseKey = define_c_proc(advapi32,"RegCloseKey",{C_LONG})
  ,xRegDeleteKey =
define_c_func(advapi32,"RegDeleteKeyA",{C_LONG,C_POINTER},C_LONG)
  ,xRegDeleteValue =
define_c_func(advapi32,"RegDeleteValueA",{C_LONG,C_POINTER},C_LONG)
  ,xRegEnumKeyEx =
define_c_func(advapi32,"RegEnumKeyExA",{C_LONG,C_LONG,C_POINTER,C_POINTER,C_
LONG,C_POINTER,C_POINTER,C_POINTER},C_LONG)
  ,xRegEnumValueA =
define_c_func(advapi32,"RegEnumValueA",{C_LONG,C_LONG,C_POINTER,C_POINTER,C_
LONG,C_POINTER,C_POINTER,C_POINTER},C_LONG)
  ,xlstrlen = define_c_func(kernel32,"lstrlen",{C_POINTER},C_INT)

object junk

global function or_all(sequence s)
  -- or together all elements of a sequence
  atom result

  result = 0
  for i = 1 to length(s) do
    result = or_bits(result, s[i])
  end for
  return result
end function

procedure warning(sequence message)
  junk=message_box(message,"Error",MB_ICONERROR)
end procedure

constant
  ERROR_NONE = 0,
  ERROR_BADDB = 1,
  ERROR_BADKEY = 2,
  ERROR_CANTOPEN = 3,
  ERROR_CANTREAD = 4,
  ERROR_CANTWRITE = 5,
  ERROR_OUTOFMEMORY = 6,
  ERROR_ARENA_TRASHED = 7,
  ERROR_ACCESS_DENIED = 8,
  ERROR_INVALID_PARAMETERS = 87,
  ERROR_MORE_DATA = 234,
  ERROR_NO_MORE_ITEMS = 259

function reg_check(integer junk)
  if junk=ERROR_BADDB then warning("ERROR_BADDB") return 0
  elsif junk=ERROR_BADKEY then warning("ERROR_BADKEY") return 0
  elsif junk=ERROR_CANTOPEN then warning("ERROR_CANTOPEN") return 0
  elsif junk=ERROR_CANTREAD then warning("ERROR_CANTREAD") return 0
  elsif junk=ERROR_CANTWRITE then warning("ERROR_CANTWRITE") return 0
  elsif junk=ERROR_OUTOFMEMORY then warning("ERROR_OUTOFMEMORY") return 0
  elsif junk=ERROR_ARENA_TRASHED then warning("ERROR_ARENA_TRASHED") return
0
  elsif junk=ERROR_ACCESS_DENIED then warning("ERROR_ACCESS_DENIED") return
0
  elsif junk=ERROR_INVALID_PARAMETERS then
warning("ERROR_INVALID_PARAMETERS") return 0
  elsif junk=ERROR_MORE_DATA then warning("ERROR_MORE_DATA") return 0
  elsif junk=ERROR_NO_MORE_ITEMS then warning("ERROR_NO_MORE_ITEMS") return
0
  else
  return 1
  end if
end function

constant
  HKEY_CLASSES_ROOT = #80000000,
  HKEY_CURRENT_USER = #80000001,
  HKEY_LOCAL_MACHINE = #80000002,
  HKEY_USERS = #80000003,
  HKEY_CURRENT_CONFIG = #80000005,
  HKEY_DYN_DATA = #80000006

constant
  REG_CREATED_NEW_KEY = 1,
  REG_OPTION_NON_VOLATILE = 0,
  STANDARD_RIGHTS_ALL = #1F0000,
  STANDARD_RIGHTS_REQUIRED = #F0000,
  KEY_QUERY_VALUE = #1,
  KEY_SET_VALUE = #2,
  KEY_CREATE_SUB_KEY = #4,
  KEY_ENUMERATE_SUB_KEYS = #8,
  KEY_NOTIFY = #10,
  KEY_CREATE_LINK = #20,
  KEY_ALL_ACCESS = or_all({STANDARD_RIGHTS_REQUIRED, KEY_QUERY_VALUE,
  KEY_SET_VALUE,KEY_CREATE_SUB_KEY,KEY_ENUMERATE_SUB_KEYS,KEY_NOTIFY,
  KEY_CREATE_LINK})

constant
  REG_SZ = 1,
  REG_BINARY = 3,
  REG_DWORD = 4

function text_to_binary(sequence text)
    sequence binary
    binary = {}
    for i = 1 to length(text) do
        binary &= int_to_bits(text[i], 8)
    end for
    return binary
end function

function binary_to_text(sequence binary)
    sequence text
    text = {}
    for i = 1 to length(binary) by 8 do
        text &= bits_to_int(binary[i..i+7])
    end for
    return text
end function

object vNameptr, vDataptr, data_len

function Process_vName(object vName)
  if sequence(vName) then
    vNameptr = allocate_string(vName)
  else
    vNameptr = allocate(4)
    mem_set(vNameptr,0,4)
    poke4(vNameptr, vName)
  end if
  return vNameptr
end function

function Process_vData(object vData, integer rtype)
  if rtype = REG_SZ then
    vDataptr = allocate_string(vData)
  elsif rtype = REG_BINARY then
    vDataptr = allocate_string(binary_to_text(vData))
  else
    vDataptr = allocate(4)
    poke4(vDataptr, vData)
  end if
  return vDataptr
end function

procedure CreateRegKey(atom hkey, sequence key, sequence Data)
-- This routine will create your Name, Value pair regardless if
-- the key/subkey exist. This will be usefull for many projects.
  atom keyptr, nullptr, hRegKey, result
  integer regtype
  object vName, vData, binary
  sequence sdata

    keyptr = allocate_string(key)
    nullptr = allocate_string("")
    hRegKey = allocate(4)
    result = allocate(4)

    if c_func(xRegCreateKeyEx,{hkey, keyptr, 0, nullptr, 0, KEY_ALL_ACCESS,
0, hRegKey, result}) = 0 then
      if peek4u(result) =  REG_CREATED_NEW_KEY then
        for i = 1 to length(Data) do
          sdata = Data[i]
          vNameptr = Process_vName(sdata[1])
          regtype  = sdata[2]
          vDataptr = Process_vData(sdata[3], regtype)
          data_len = c_func(xlstrlen,{vDataptr}) + 1
          junk = c_func(xRegSetValueEx,{peek4u(hRegKey), vNameptr, 0,
regtype, vDataptr, data_len})
          free(vNameptr)
          free(vDataptr)
        end for
     else -- Key exist, now check for Name, Value pair.
        for i = 1 to length(Data) do
          sdata = Data[i]
          vNameptr = Process_vName(sdata[1])
          regtype  = allocate(4)
          vDataptr = Process_vData(sdata[3], sdata[2])
          data_len = allocate(4)
          poke4(data_len, c_func(xlstrlen,{vDataptr}) + 1)
          junk = c_func(xRegQueryValueEx,{peek4u(hRegKey), vNameptr, 0,
regtype, vDataptr, data_len})
          if junk = 2 then -- Name, Value pair doesnt exist, create them.
            regtype  = sdata[2]
            data_len = c_func(xlstrlen,{vDataptr}) + 1
            junk = c_func(xRegSetValueEx,{peek4u(hRegKey), vNameptr, 0,
regtype, vDataptr, data_len})
          else
            free(regtype)
            free(data_len)
          end if
            free(vNameptr)
            free(vDataptr)
        end for
      end if
    c_proc(xRegCloseKey,{peek4u(hRegKey)})
    end if
end procedure

function DeleteRegKey(atom hkey, sequence subkey)
  atom keyptr
    keyptr = allocate_string(subkey)
    junk = c_func(xRegDeleteKey,{hkey,keyptr})
    free(keyptr)
    return reg_check(junk)
end function

-- A Couple of examples commented out, be extra carefull de/uncommenting...

-- Run the demo uncommenting 1) first then comment out 1) and run with 2)

-- 1) Create and write
                                              -- sequence of Name, Type,
Value
--CreateRegKey(HKEY_CURRENT_USER, "Environment",
--                                              {{"EUDIR", REG_SZ,
"Euphoria"},
--                                               {"PATH", REG_SZ,
"Euphoria\\BIN"},
--                                               {"112", REG_BINARY,
text_to_binary("Euman")}
--                                              })

-- 2) Delete what we just wrote

--junk = DeleteRegKey(HKEY_CURRENT_USER, "Environment")

<de/unsnip here>

The Euman


----- Original Message -----
From: "Don Phillips" <EuNexus at yahoo.com>

> > Personally, I don't like saving preferences in the Registry, and I
> > always feel threatened by programs that do.  For one, it makes the
> > program harder to uninstall.  For another, there's always the danger of
> > trashing your OS if the PC dies in the middle of a registry write.
> > While the danger is small, it does exist.  A separate config file stored
> > in the same directory as the executable removes these two constraints.
> > My preference is an INI file.  It makes it easier for the user to make
> > config changes outside the program if necessary.  It also makes it
> > easier to change configurations for different users.  The format is
> > extensible for newer versions of your program, and it is readily
> > understood by most advanced users and developers.  There is also an INI
> > library already in the archives, although I haven't used it myself (I
> > have my own routine that I adapt to each program).  Lastly, an INI file
> > is much more portable than registry keys are, including across different
> > versions of Windows.
> >
> > Just my ½ cent (inflation, ya know...),
> > Mike Sabal
>
> Mike:
> I am in the same boat as you mike.  I personally think that the registry
> is over used and often times abused.  However, in this case I thought it
> was the right thing to do.  As many may or may not know, the Toolbar
> control has built in functions to save/ restore its position on
> application close/ open respectively.  This was the first thing I added
> to Nexus via direct API calls.  It turns out the built in functions
> write to the registry under a key given by the program.  I figured that
> as long as I was already using a key in the registry for the Toolbar
> (does not give a choice), I might as well place my other settings there
> as well.
>
> Jonas:
> Ahh, 2k Pro.  My dev machine at home is a 98 box.  I have a 2k box at
> work and during my down time I will see what I can do.  I am sure there
> is a flag or setting I am not using.  Have to take another peek at my
> API references.  Good call Jonas.

4. Re: Saving configs (was: Nexus v2)

• Posted by petelomax at blueyonder.co.uk Nov 01, 2002
• 426 views

{{{ On Fri, 1 Nov 2002 16:55:09 +0000, Don Phillips <EuNexus at yahoo.com> wrote:

Mike wrote a pretty good ini file handler included with his editor (that be the one I've been updating all year). From my site http://palacebuilders.pwp.blueyonder.co.uk/euphoria.html extract ini.e, read the instructions &/or check usage of the global routines in the rest of the sources. Very easy, completely robust.

Pete

6. Re: Saving configs (was: Nexus v2)

• Posted by jbrown105 at speedymail.org Nov 03, 2002
• 396 views

On  0, Don Phillips <EuNexus at yahoo.com> wrote:
> 
> 
> Thanks for the tip =)  Too late however.  I have already migrated all of my
> code to use ini files and not the registry.  I will send in the updated files to
> RDS in maybe a week.  I am working on a little something for the editor some one
> else asked for.  As it now uses only ini files, when using the next release it
> will start with all defaulted values.  Sorry for the inconvenience...
> 
> On Fri, 1 Nov 2002 16:55:09 +0000, Don Phillips 
> wrote:
> 
> >Considering the extra code involved (and the complexity of the code I am 
> >already using), I am going to take a serious look at what will be 
> >involved into pushing my settings to an ini file. If I can migrate over 
> >I will attempt to do so...
> 
> Mike wrote a pretty good ini file handler included with his editor
> (that be the one I've been updating all year). From my site
> http://palacebuilders.pwp.blueyonder.co.uk/euphoria.html
> extract ini.e, read the instructions &/or check usage of the global
> routines in the rest of the sources. Very easy, completely robust.
> 
> Pete
> 
> 
> ---------------------------------
> Do you Yahoo!?
> HotJobs - Search new jobs daily now
> 

Isn't it possible to write a program which would write out a new .ini
file
based on settings in the registry, which also would have the option to
clean
the registery of those unwanted enteries?

Just curious,
jbrown


--