Acessar registro do Windows

Discussão em 'Interfaces' iniciado por sl4v3r, Fevereiro 1, 2009.

  1. sl4v3r

    sl4v3r Membro Participativo

    sl4v3r, Fevereiro 1, 2009
    #1
  2. coliveira

    coliveira Sem Pontuação

    Pra facilitar segue código feito pelo nosso amigo sl4v3er.....


    Código:
    DEFINE VARIABLE c_return AS CHARACTER NO-UNDO.

DYNAMIC-FUNCTION (”read_registry”).
FUNCTION read_registry RETURNS CHARACTER FORWARD.

c_return = read_registry().

MESSAGE c_return VIEW-AS ALERT-BOX.

FUNCTION read_registry RETURNS CHARACTER.
DEF VAR c_data AS CHARACTER NO-UNDO.
LOAD “SOFTWARE” BASE-KEY “HKEY_CURRENT_USER”.
USE “SOFTWARE”.
GET-KEY-VALUE SECTION “Gupta\Team Object Manager 3.1\Settings”
KEY “INIFilePath”
VALUE c_data.
UNLOAD “SOFTWARE”.
RETURN (c_data).
END FUNCTION.
    coliveira, Fevereiro 2, 2009
    #2

Compartilhe esta Página