Acessando Registros do Windows
Pessoal, abaixo vou demonstrar uma maneira simples de criar e ler chaves do registro do Windows.
Para começar precisamos conhecer os comandos LOAD e UNLOAD.
O comando LOAD pode ser usado para várias outras finalidades que não serão citadas aqui.
Como o próprio nome diz o comando LOAD busca a chave passada como parâmetro na pasta indicada após BASE-KEY, e o comando USE a carrega na memória para uso.
Logo após isso o comando GET-KEY-VALUE pega o valor da chave e joga na variável DATA.
E para finalizar o comando UNLOAD libera o registro.
FUNCTION leRegistro RETURNS CHARACTER ().
DEF VAR DATA AS CHARACTER NO-UNDO.
LOAD “SOFTWARE” BASE-KEY “HKEY_LOCAL_MACHINE”.
USE “SOFTWARE”.
GET-KEY-VALUE SECTION “Microsoft\Windows\CurrentVersion\Run”
KEY “ProgresseTecnologia”
VALUE DATA.
UNLOAD “SOFTWARE”.
RETURN (DATA).
END FUNCTION.
Na função abaixo é basicamente a mesma coisa a única diferença é o comando PUT-KEY-VALUE que joga o valor na chave.
FUNCTION alteraRegistro RETURN CHARACTER ().
LOAD “SOFTWARE” BASE-KEY “HKEY_LOCAL_MACHINE”.
USE “SOFTWARE”.
PUT-KEY-VALUE SECTION “Microsoft\Windows\CurrentVersion\Run”
KEY “ProgresseTecnologia”
VALUE “Blog com dicas de Progress”.
UNLOAD “SOFTWARE”.
RETURN (“Registro salvo”).
END FUNCTION.