/**
exemplo 02
como escrever (definir valor) em chave de registro
**//
inclua'win'
//01 - abra um registro já criado em modo KEY_ESCRITA (ou crie um):
k = win.RegAbraChave( HKEY_CURRENT_USER , 'PrismaInfo', KEY_ESCRITA);
//gravando em [HKEY_CURRENT_USER>SessionInformation]
/**
poderia ser: HKEY_CLASSES_ROOT; HKEY_LOCAL_MACHINE; HKEY_USERS OU
HKEY_CURRENT_CONFIG (ao critério do programador.
**
//02 use a funcao win.RegDefValor(parametros: ( chave , 'nome' , TIPO , "valor");
se k entao //caso haja erro o retorno é nulo
//________________________________________________________________________
//03 ESCREVENDO STRING
ret = win.RegDefValor( k , 'TESTE_STR' , REG_SZ , conv_w'uma string em prisma');
se ret entao imprima"SUCESSO" senao imprima"ERRO" fim
ret = win.RegDefValor( k , 'TESTE_MULTISTR' , REG_MULTI_SZ ,
//os argumentos podem ser em linhas diferentes sem problema, só não esqueça da vírgula
{'primeira string' , 'segunda string' , 'terceira string','quarta string', 'quinta string' } );
se ret entao imprima"SUCESSO" senao imprima"ERRO" fim
//abra o regedit e veja nessa chave acima o nome TESTE e seu valor!
//________________________________________________________________________
//04 ESCREVENDO NÚMERO:
//vamos aproveitar a mesma chave aberta, mas pode abrir outra se quiser
ret = win.RegDefValor( k , 'TESTE_NUM' , REG_DWORD , 1000000);
se ret entao imprima"SUCESSO" senao imprima"ERRO" fim
//lembrando que no registro fica em formato hexa, mas a função de leitura
//obtém o valor em formato número prisma novamente.
//________________________________________________________________________
//05 ESCREVENDO BYTES(BINARIO): (passe uma tabela)
ret = win.RegDefValor( k , 'TESTE_BIN' , REG_BINARY , {0X01,0X04,0XFF,0XAF,0X09} );
se ret entao imprima"SUCESSO" senao imprima"ERRO" fim
//06 não esqueça de fechar a chave aberta após usada.
win.RegFecheChave(k);
senao //se o retorno de abertura da chave for nulo, esta exceção será executada
imprima(conv_c'valor de chave inválido:' , k);
//Esta é uma nova função simples de mensagem em win, sem título e com ícone de atenção.
win.poe( conv_w'chave não pode ser aberta ou não foi encontrada');
fim
//modifique o nome de chave na função win.RegAbraChave acima só para ver o erro;