Registry Mnemonics

From CometWiki

(Difference between revisions)
Jump to: navigation, search
Line 1: Line 1:
-
'''Using the Windows Registry in your IB Programs'''
+
==Using the Windows Registry in your IB Programs==
-
'''<b>Introduction:</b>'''
+
'''Introduction:'''
The Registry Mnemonics allow you to create and manage Windows registry settings for your IB application.  Entries may be made under either HKEY_CURRENT_USER\Software or HKEY_LOCAL_MACHINE\Software.
The Registry Mnemonics allow you to create and manage Windows registry settings for your IB application.  Entries may be made under either HKEY_CURRENT_USER\Software or HKEY_LOCAL_MACHINE\Software.
 +
'''Syntax:'''
'''Syntax:'''
Line 26: Line 27:
</b>
</b>
Deletes the specified Name/Value pair.
Deletes the specified Name/Value pair.
 +
'''Discussion:'''
'''Discussion:'''
Line 36: Line 38:
'''Example:'''
'''Example:'''
-
Length 254 & Local RegKey$
+
Length 254 & Local RegKey$
-
 
+
SET STARTUPBASEKEY$ = "MyCompanyName\MyAppName\Settings"
-
SET STARTUPBASEKEY$ = "MyCompanyName\MyAppName\Settings"
+
SET REPORTSDIR$ = "RptDir"
-
 
+
-
SET REPORTSDIR$ = "RptDir"
+
-
 
+
-
print (RegCreateKey="USER","","MyCompanyName",0)
+
-
 
+
-
input Result$
+
-
 
+
-
print (RegCreateKey="USER","MyCompanyName","MyAppName",0)
+
-
 
+
-
input Result$
+
-
 
+
-
print (RegCreateKey="USER","MyCompanyName\MyAppName","Settings",0)
+
-
 
+
-
input Result$
+
-
 
+
-
print (RegCreateKey="USER",STARTUPBASEKEY$,UserName$,0)
+
-
 
+
-
input Result$
+
-
if strip(Result$) ne "+OK" UseReg = false
+
print (RegCreateKey="USER","","MyCompanyName",0)
 +
input Result$
-
RegKey$ = STARTUPBASEKEY$ + "\" + User$
+
print (RegCreateKey="USER","MyCompanyName","MyAppName",0)
 +
input Result$
-
print (RegSetValue = "USER", RegKey$, REPORTSDIR$,RptDir$,1)
+
print (RegCreateKey="USER","MyCompanyName\MyAppName","Settings",0)
 +
input Result$
-
input Result$
+
print (RegCreateKey="USER",STARTUPBASEKEY$,UserName$,0)
 +
input Result$
-
RegKey$ = STARTUPBASEKEY$ + "\" + UserName$
+
if strip(Result$) ne "+OK" UseReg = false
-
print (RegGetValue = "USER", RegKey$, REPORTSDIR$)
+
RegKey$ = STARTUPBASEKEY$ + "\" + User$
 +
print (RegSetValue = "USER", RegKey$, REPORTSDIR$,RptDir$,1)
 +
input Result$
-
input Result$
+
RegKey$ = STARTUPBASEKEY$ + "\" + UserName$
 +
print (RegGetValue = "USER", RegKey$, REPORTSDIR$)
 +
input Result$
-
if sub(Result$,1,6) = "+OK 1:"
+
if sub(Result$,1,6) = "+OK 1:" GoTo RegSettingOK
The Registry Mnemonics were introduced in Comet16/32 2011.
The Registry Mnemonics were introduced in Comet16/32 2011.

Revision as of 18:11, 7 November 2011

Using the Windows Registry in your IB Programs

Introduction:

The Registry Mnemonics allow you to create and manage Windows registry settings for your IB application. Entries may be made under either HKEY_CURRENT_USER\Software or HKEY_LOCAL_MACHINE\Software.


Syntax:

Print (RegCreateKey = Type$, BaseKey$, SubKey$) Creates a new registry entry.

Print (RegDeleteKey = Type$, BaseKey$, SubKey$) Deletes a registry entry and all of its name/value pairs.

Print (RegSetValue = Type$, BaseKey$, Name$, Value$, Type) Assigns the specified Name/Value pair of a given type.

Print (RegGetValue = Type$, BaseKey$, Name$) Returns the the Type and Value of the specified Name/Value pair.

Print (RegDeleteValue = Type$, BaseKey$, Name$) Deletes the specified Name/Value pair.


Discussion:

For all functions: Type$ = "USER" or "SYSTEM" where "USER" translates as HKCU\Software; "SYSTEM" translates as HKLM\Software BaseKey$ = an EXISTING registry key which may contain "\" for subkeys, For example: "Signature Systems\DocMgr"


Example:

Length 254 & Local RegKey$
SET STARTUPBASEKEY$ = "MyCompanyName\MyAppName\Settings"
SET REPORTSDIR$ = "RptDir"
print (RegCreateKey="USER","","MyCompanyName",0)
input Result$
print (RegCreateKey="USER","MyCompanyName","MyAppName",0)
input Result$
print (RegCreateKey="USER","MyCompanyName\MyAppName","Settings",0)
input Result$
print (RegCreateKey="USER",STARTUPBASEKEY$,UserName$,0)
input Result$
if strip(Result$) ne "+OK" UseReg = false
RegKey$ = STARTUPBASEKEY$ + "\" + User$
print (RegSetValue = "USER", RegKey$, REPORTSDIR$,RptDir$,1)
input Result$
RegKey$ = STARTUPBASEKEY$ + "\" + UserName$
print (RegGetValue = "USER", RegKey$, REPORTSDIR$)
input Result$
if sub(Result$,1,6) = "+OK 1:" GoTo RegSettingOK


The Registry Mnemonics were introduced in Comet16/32 2011.

Personal tools