MODULE Registry;
(* =========================================================================  
   Example GPCP .NET Console Program 
 
   Display CPIde's registry keys 
   
   Author : Chris Burrows  
   Created: May 2007   
   (c) 2007-2008 CFB Software   
   http://www.cfbsoftware.com/gpcp  
   
   ========================================================================= *)

IMPORT
  Out,
  Sys := "[mscorlib]System",
  Win32 := "[mscorlib]Microsoft.Win32",
  CPmain;

(* ==================================================================== *)

PROCEDURE DisplayKeyValue(keyName: Sys.String);
CONST
  rootKey = 'HKEY_CURRENT_USER\Software\Cfb\CPIde';
VAR
  o: Sys.Object;
  keyValue: Sys.String;
BEGIN
  o := Win32.Registry.GetValue(rootKey, keyName, NIL);
  IF o # NIL THEN keyValue := o.ToString() ELSE keyValue := 'Undefined' END;
  Out.String(keyName + ' = ' + keyValue);
  Out.Ln()
END DisplayKeyValue;

(* ==================================================================== *)

BEGIN
  DisplayKeyValue('AutoCapitalise');
  DisplayKeyValue('AutoIndent');
  DisplayKeyValue('AutoIndent');
  DisplayKeyValue('FontSize');
  DisplayKeyValue('FontName');
  DisplayKeyValue('IndentWidth');
  DisplayKeyValue('LastFolder');
  DisplayKeyValue('LastSymFolder');  
  DisplayKeyValue('ViewProcedures');
  DisplayKeyValue('ViewImports')
END Registry.