PRIMEIRA EXECUCAO DO SISTEMA!!!

Citação:

[txt-size=1] Instrução SaveSetting [/txt-size]
Salva ou cria uma entrada de aplicativo no Registro do Windows.

Sintaxe:

SaveSetting appname, section, key, setting

A sintaxe da instrução SaveSetting possui estes argumentos nomeados:

Parte Descrição
appname Obrigatório. Espressão de seqà¼ência de caracteres que contém o nome do aplicativo ou projeto ao qual se aplica a definição.
section Obrigatório. Espressão de seqà¼ência de caracteres que contém o nome da seção em que a definição da chave está sendo salva.
key Obrigatório. Espressão de seqà¼ência de caracteres que contém o nome da definição de chave sendo salva.
setting Obrigatório. Expressão que contém o valor com que key está sendo definido.

Comentários

Ocorrerá um erro se, por qualquer motivo, a definição da chave não puder ser salva.

Citação:

O exemplo a seguir primeiro utiliza a instrução SaveSetting para criar entradas no Registro do Windows (ou no arquivo .ini nas plataformas Windows de 16 bits) para o aplicativo MeuAplicativo e, em seguida, utiliza a instrução DeleteSetting para removê-las.

' Insere algumas definições no Registro.
SaveSetting appname := "MeuAplicativo", section := "Inicialização", _
            key := "Superior", setting := 75 
SaveSetting "MeuAplicativo","Inicialização", "Esquerda", 50 
' Remove a seção e todas as suas definições do Registro.
DeleteSetting "MeuAplicativo", "Inicialização"  
 

'salva o nome de usuario 
Dim NomeUsuario                    'Armazena o nome que será gravado
NomeUsuario = Text1.text
SaveSetting appname := "NomedoSeuPrograma", section := "Configurações", key := "Nome de Usuário", setting := NomeUsuario

'pega o nome de usuario
Dim NomeUsuarioGravado      'Armazenha o nome que já existe no Registro
NomeUsuarioGravado = GetSetting(appname := "NomedoSeuPrograma", section := "Configurações", key := "Nome de Usuário")