Esto lo intente para recuperar la ruta de mis documentos en las sesiones de windows, aunque no se puede recuperar por este metodo dado que son valores binarios puede recuperar los valores ascii o registrar los propios. util para guardar configuraciones o valores en windows.
FUNCTION getData RETURNS CHARACTER ().
DEF VAR DATo AS CHARACTER NO-UNDO.
LOAD "Software" BASE-KEY "HKEY_CURRENT_USER".
USE "Software".
GET-KEY-VALUE
SECTION 'Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders'
KEY "Personal"
VALUE DATo.
UNLOAD "Software".
RETURN (DATo).
END FUNCTION.
MESSAGE getData() VIEW-AS ALERT-BOX.
FUNCTION getData RETURNS CHARACTER ().
DEF VAR DATo AS CHARACTER NO-UNDO.
LOAD "Software" BASE-KEY "HKEY_CURRENT_USER".
USE "Software".
GET-KEY-VALUE
SECTION 'Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders'
KEY "Personal"
VALUE DATo.
UNLOAD "Software".
RETURN (DATo).
END FUNCTION.
MESSAGE getData() VIEW-AS ALERT-BOX.
Comentarios
Publicar un comentario