Segue um exemplo classico de acesso ao registro do windows pelo Progress.

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.

flw