Acessando o Registro com Progress

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\WindowsCurrentVersion\Run"
KEY "ProgresseTecnologia"
VALUE "Valor a ser gravado no registro".

UNLOAD "SOFTWARE".
RETURN ("Registro salvo").
END FUNCTION.