Acessando o Registro do Windows usando Progress

Acessando o Registro do Windows usando 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\Windows\CurrentVersion\Run"

    KEY "ProgresseTecnologia"

    VALUE "Blog com dicas de Progress".

    UNLOAD "SOFTWARE".

    RETURN ("Registro salvo").

END FUNCTION.

Conheça o Blog de Progress http:\\progressetecnologia.blogspot.com