LOCAL lcSystemSettingClass IF !This.lUseINIFile *-------------------------------------------------------------- *-- Define the cRegistry as the class handling system settings. *-------------------------------------------------------------- lcSystemSettingClass = "Registry" *----------------------- *-- Get the registry key *----------------------- This.cRegistryKey = This.GetRegistryKey() *------------------------------ *-- Initialize the INI property *------------------------------ This.cINIFile = "" ELSE lcSystemSettingClass = "INIFile" *-------------------------------------------------------- *-- Initialize the cRegistryKey property *-------------------------------------------------------- This.cRegistryKey = "" *-------------------------------------------------- *-- Retrieve the name of the application's INI file *-------------------------------------------------- This.cINIFile = This.GetINIFile() ENDIF RETURN lcSystemSettingClass