PROGRAM RegistryFunctions;
{-- ***************************************************************************
 -- ** Descr. : This script shows some of the functions that can be found on
 -- **          the Registry Functions Helppage.
 -- ***************************************************************************
 -- ** 04/10/01 1.001.00 Initial Creation, sm@orcl-toolbox.com
 -- ***************************************************************************}

 //Begin Main
BEGIN

  //check if key exists in the registry
  if RegistryKeyExists('\\HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\FORMS60_PATH')
    then logadd('forms60path can be found')
    else logadd('forms60path can not be found!');

  //output this key
  logadd('key: '+RegistryReadKey('\\HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\FORMS60_PATH'));

  //write a key
  RegistryWriteKey('\\HKEY_CURRENT_USER\SOFTWARE\ORCL TOOLBOX\FORMSAPI MASTER\Regtest','Hello!');

  //output this key
  logadd('mykey: '+RegistryReadKey('\\HKEY_CURRENT_USER\SOFTWARE\ORCL TOOLBOX\FORMSAPI MASTER\Regtest'));

  //and delete it
  RegistryDeleteKey('\\HKEY_CURRENT_USER\SOFTWARE\ORCL TOOLBOX\FORMSAPI MASTER\Regtest');

END.
//End Main