Differences between revisions 1 and 10 (spanning 9 versions)

Dealing with the Windows Registry

Both, the Registry class as well as the RegistryKey class offer better support for accessing the Windows registry than the DLL calls offered in the past.

Note that the example function contains some code that can work under .NET 2.0 or better only.

 Microsoft∆Win32∆Registry;⎕ML;⎕IO;subKeyRef;test9999RegKey;regKeyObj;test9999aRegKey;path;valName;buff;val;testSettings
⍝ Version 1.1 from 2006-12-22 ⋄ Kai Jaeger ⋄ APL Team Ltd
 (⎕ML ⎕IO)←1
 ⎕USING,←⊂''
⍝ Create a reference to the "CURRENT_USER" part of the Windows registry 
⍝ using "CurrentUsers" within "Microsoft.Win32.Registry":
⍝ Note the "CurrentUser" is a field, not a method!
⍝ This is VERY important because no right argument is needed!!
 regKeyObj←Microsoft.Win32.Registry.CurrentUser
 test9999RegKey←regKeyObj.CreateSubKey⊂'Test9999'
⍝ The same thing with "Test9999a" using a sligtly different technique:
 test9999aRegKey←Microsoft.Win32.Registry.CurrentUser.CreateSubKey⊂'Test9999a'
⍝ "Close" it
 test9999aRegKey.Close
⍝ To specify the default value, specify an empty vector as key name:
 test9999RegKey.SetValue'' 'Here the default is saved!'
⍝ Get the default value of a Registry Key:
 ⎕←test9999RegKey.GetValue⊂''
⍝ Create a SubKey:
 {}test9999RegKey.CreateSubKey⊂'Misc'
⍝ Create another SubKey:
 testSettings←test9999RegKey.CreateSubKey⊂'TestSettings'
⍝ List all SubKeys:
 ⎕←test9999RegKey.GetSubKeyNames ⍬
⍝ Create data for the TestSettings subkey
 testSettings.SetValue'Language' 'French' ⍝ String
 testSettings.SetValue'val_1' ¯127        ⍝ String
 testSettings.SetValue'val_2' ¯128        ⍝ String
 testSettings.SetValue'val_3' 1234.56     ⍝ String
 testSettings.SetValue'val_4' 0           ⍝ String
 testSettings.SetValue'val_5' 1           ⍝ String
 testSettings.SetValue'val_6' 128         ⍝ String
⍝ BUT:
 testSettings.SetValue'val_7' 10          ⍝ DWORD
 testSettings.SetValue'val_8' 127         ⍝ DWORD
⍝ Request the type for a string
 ⎕←testSettings.GetValueKind⊂'Language'
⍝ Request the type for a DWORD
 ⎕←testSettings.GetValueKind⊂'val_6'
 :Trap 90
     ⎕←testSettings.GetValueKind⊂'Unknown'
 :Else
     ⎕←'"Unknown" does not exist!'
 :EndTrap
⍝ Get a particular value:
 ⎕←testSettings.GetValue⊂'Language'
 ⎕←1+⍎testSettings.GetValue⊂'Val_5' ⍝ Key is not case sensitive!
 ⎕←1+testSettings.GetValue⊂'val_6'  ⍝ This is an integer
⍝ Get an unkown value with a specified default value ¯1:
 ⎕←testSettings.GetValue'Unknown' ¯1
⍝ Again with a string as default
 ⎕←testSettings.GetValue'Unknown' 'This key is unknown'
⍝ Get names of all keys of a subkey
 ⎕←testSettings.GetValueNames
 testSettings.GetValueNames,[1.5]⎕←testSettings∘{⍺.GetValue⊂⍵}¨testSettings.GetValueNames
⍝ ****** Available only in .NET version 2.0 and better ******
⍝ Let's use "GetValue" which is available as a
⍝ shared method of the "Registry" class:
 path←'HKEY_CURRENT_USER\Software\Dyadic\Dyalog APL/W 11.0'
 valName←'wssize'
 buff←System.Object
 ⎕←Microsoft.Win32.Registry.GetValue path valName buff
⍝ ****** END .NET version 2.0 ******
⍝ Delete a particular Value
 testSettings.DeleteValue⊂'val_8'
⍝ Delete tree (SubKey and all of it's values)
 test9999RegKey.DeleteSubKeyTree⊂'TestSettings'
⍝ Trying to delete a non-existing thing throws an exception:
 :Trap 90
     test9999RegKey.DeleteSubKeyTree⊂'DoesNotExist'
 :Else
     ⎕←⎕DM
 :EndTrap
 test9999RegKey.DeleteSubKey⊂'Misc'
⍝ Delete the top entries we have just created:
 regKeyObj.DeleteSubKey∘⊂¨'Test9999' 'Test9999a'
⍝ Close all references
 (testSettings test9999aRegKey test9999RegKey).Close
⍝ End

Author: KaiJaeger

CategoryDyalogExamplesDotNet

-  ⇤ ← Revision 1 as of 2006-12-31 21:12:13 → 
  Size: 3874
  Editor: KaiJaeger
  Comment:
+   ← Revision 10 as of 2007-06-25 08:50:22 → ⇥
  Size: 3993
  Editor: KaiJaeger
  Comment:
-Deletions are marked like this.
+Additions are marked like this.
 Line 1:
-## page was renamed from RegistryInfo
+## page was renamed from DotNetSamples/RegistryInfo
= Dealing with the Windows Registry =
-Line 6:
+Line 7:
-{{{ Microsoft∆Win32∆Registry;⎕ML;⎕IO;subKeyRef;test9999RegKey;regKeyObj;test9999aRegKey;path;valName;buff;val;testSettings
+{{{   Microsoft∆Win32∆Registry;⎕ML;⎕IO;subKeyRef;test9999RegKey;regKeyObj;test9999aRegKey;path;valName;buff;val;testSettings
-Line 8:
+Line 10:
- ⎕ML ⎕IO←1
+ (⎕ML ⎕IO)←1
-Line 11:
+Line 12:
-⍝ Create a reference to the "CURRENT_USER" part of the Windows registry using
⍝ the static method "Users" within "Microsoft.Win32.Registry":
⍝ Note the "CurrentUser" is a field, not a method: no right argument needed:
+⍝ Create a reference to the "CURRENT_USER" part of the Windows registry 
⍝ using "CurrentUsers" within "Microsoft.Win32.Registry":
⍝ Note the "CurrentUser" is a field, not a method!
⍝ This is VERY important because no right argument is needed!!
-Line 17:
+Line 18:
 Line 20:
-⍝ "Close" does
+⍝ "Close" it
-Line 23:
+Line 22:
-Line 26:
+Line 24:
-Line 29:
+Line 26:
-Line 32:
+Line 28:
-Line 35:
+Line 30:
-Line 38:
+Line 32:
-Line 47:
+Line 40:
-Line 51:
+Line 43:
-⍝ Request type for a string
+⍝ Request the type for a string
-Line 54:
+Line 45:
-⍝ Request type for a DWORD
+⍝ Request the type for a DWORD
-Line 62:
+Line 52:
-Line 67:
+Line 56:
-Line 70:
+Line 58:
-Line 73:
+Line 60:
-⍝ Get names of all keys:
+⍝ Get names of all keys of a subkey
-Line 77:
+Line 63:
-Line 79:
+Line 64:
-⍝ First we will use "GetValue" which is available as a
+⍝ Let's use "GetValue" which is available as a
-Line 84:
+Line 69:
- val←Microsoft.Win32.Registry.GetValue path valName buff
+ ⎕←Microsoft.Win32.Registry.GetValue path valName buff
-Line 86:
+Line 71:
-Line 89:
+Line 73:
-Line 92:
+Line 75:
-⍝ Deleting a non-existing things throws an exception:
+⍝ Trying to delete a non-existing thing throws an exception:
-Line 100:
+Line 82:
-⍝ Delete the top entries we've just created:
+⍝ Delete the top entries we have just created:
-Line 103:
+Line 84:
-Line 106:
+Line 86:
-Line 109:
+Line 88:
+Author: KaiJaeger

----

CategoryDyalogExamplesDotNet