A novidade aqui \u00e9 a fun\u00e7\u00e3o de apagar valores ou subchaves vazias. (o restante j\u00e1 foi explicado nos posts anteriores)<\/p>\n
ret = win.RegDeleteValor( ch , 'TESTE_STR' );<\/pre>\nEla retorna verdadeiro em caso de sucesso ou nulo em caso de falha.<\/p>\n
Dica:<\/strong> use win.poe(\u00a0 win.ObtErroMsg()\u00a0 )\u00a0 para ver o \u00faltimo erro em caso de falha;<\/p>\n
Obs.<\/strong> No Windows 7 e superiores \u00e9 necess\u00e1rio elevar o privil\u00e9gio para administrador. No exemplo abaixo uso a fun\u00e7\u00e3o win.Execute com o par\u00e2metro “runas” ( run = corra\/execute; as = como (adminstrador)\u00a0 ) para chamar o pr\u00f3prio programa em modo administrativo.<\/p>\n
Obs.<\/strong> N\u00e3o \u00e9 poss\u00edvel apagar uma chave que tenha uma subchave e valores, para isso apague primeiro os valores e subchaves e depois apague a chave maior. Para saber como listar os nomes de subchaves pesquise o post com o t\u00edtulo: Enumerando chaves e valores.<\/strong><\/p>\n
Veja o c\u00f3digo comentado:<\/p>\n
inclua'win';\r\n\r\n\r\nse args[1] <> 'naorepita' entao \/\/arg 1 nao existe ainda\r\n\r\n\r\n\/\/Elevando privil\u00e9gio necess\u00e1rio para salvar e restaurar chaves\r\n\r\nwin.Execute( nulo , \/\/aqui vai o id da janela ou nulo\r\n 'runas' , \/\/runas pede para executar como administrador.\r\n args[-1] , \/\/interpretador que est\u00e1 executando\r\n args[0] .. ' naorepita ' , \/\/o script prisma sendo executado + arg 1\r\n win.ObtPastaAtual() \/\/pasta onde ser\u00e1 aberto.\r\n ); \/\/arg 1 existe agora = naorepita\r\n sis.saia(0); \/\/saindo\r\n\r\nfim\r\n\/\/o arg 1 passado \u00e9 para ter um controle e n\u00e3o gerar um loop no programa abrindo a si mesmo infinitamente.\r\n \r\n\r\n\/\/para apagar um valor dentro de uma chave \u00e9 f\u00e1cil:\r\n\r\n\/\/abra a chave onde ent\u00e1 o valor:\r\nch = win.RegAbraChave( HKEY_CURRENT_USER , 'PrismaInfo', KEY_ESCRITA );\r\n\r\nse ch entao imprima'chave aberta com sucesso' \r\n ret = win.RegDeleteValor( ch , 'TESTE_BIN' );\/\/deletando o valor\r\n se ret entao imprima('valor TESTE_BIN foi apagado com sucesso\\n');\r\n senao imprima'erro ao apagar valor TESTE_BIN';\r\n fim\r\n\r\n ret = win.RegDeleteValor( ch , 'TESTE_STR' );\r\n se ret entao imprima('valor TESTE_STR foi apagado com sucesso\\n');\r\n senao imprima'erro ao apagar valor TESTE_STR';\r\n fim\r\n\r\n \r\n\r\n win.RegFecheChave(ch);\r\n\r\n ret = win.RegDeleteValor( HKEY_CURRENT_USER , 'prisma' );\r\n \r\nsenao\r\n imprima( conv_c'ERRO: chave n\u00e3o p\u00f4de ser aberta ou encontrada\\n');\r\nfim\r\n\r\n\r\n\/\/para apagar uma chave inteira de registro tamb\u00e9m \u00e9 f\u00e1cil, veja:\r\n\r\n\/\/neste caso vai falhar por que nao \u00e9 possivel deletar uma chave que contem al\u00e9m de valores uma subchave.\r\n\/\/ter\u00edamos que enumerar os itens dentro da chave, apaga-los e depois apagar a chave maior.\r\nret = win.RegDeleteChave( HKEY_CURRENT_USER , 'PrismaInfo');\r\n\/\/o retorno \u00e9 verdadeiro ou nulo\r\n\r\nse ret entao imprima\"SUCESSO\" \r\nsenao imprima(conv_c'ERRO: chave n\u00e3o p\u00f4de ser deletada ou encontrada\\n');\r\nfim\r\n\r\nwin.poe'Ok para sair...';\r\n<\/pre>\n<\/p>\n
<\/p>\n