Todo programador sabe que es muy útil cargar y descargar parámetros de una aplicación en el registro de Windows.

Las operaciones mas frecuentes son las siguientes:

DeleteSetting appname, section[, key]

Elimina una clave de la sección de la aplicación o la entrada de la configuración del sistema del Registro.
AppName especifica el nombre de la aplicación, y section es el nombre de la sección que deseas borrar. Si la clave (key opcional) se usa, sólo esa clave será eliminada y no toda la sección.

GetAllSetting (appname, section)

Devuelve una lista de claves de configuración y sus valores de la aplicación desde el registro.
AppName es el nombre de la aplicación, y section el nombre de la sección.

GetSetting (appname, section, key[, default])

Devuelve una única clave de configuración de la aplicación y la sección de entrada en el registro del sistema.
AppName es el nombre de la aplicación, y el nombre de la la sección es section. Si no hay valor especificado en el registro entonces devuelve el valor por defecto (default). En caso de no especificar default y no existir la clave en el registro devolverá una cadena de longitud cero.

SaveSetting (appname, section, key, setting)

Salva al registro una seccion o clave y el valor de en el registro del sistema.
AppName es el nombre de la aplicación, section es el nombre de la sección, key es la clave que fijamos y settings el valor que le damos a esa clave.

Ejemplo de función para salvar al registro los datos de nuestra aplicación:

CLIC PARA VER TEXTO PLANO
Public Sub SetAppInfo(DbName As String)
    If GetSetting(App.Title, "Control", "Title") = "" Then
        Call SaveSetting(App.Title, "Control", "Title", App.Title)
        Call SaveSetting(App.Title, "Control", "Version", App.Major & "." & App.Minor & "." & App.Revision)
        Call SaveSetting(App.Title, "Install", "Date", Now())
        Call SaveSetting(App.Title, "Install", "AppPath", App.Path)
        Call SaveSetting(App.Title, "NCS", "Copyright", "(c)" & Year(Date))
        Call SaveSetting(App.Title, "Data", "DBName", DbName)
        Call SaveSetting(App.Title, "Data", "DBPath", App.Path & "\Data")
    End If
End Sub


Posts anterior y posterior:
«
»


Posts Relacionados: