From 6a4e6bf676f8330ae70728c0b9a6eec70129751b Mon Sep 17 00:00:00 2001 From: nomennescio Date: Tue, 12 Jul 2022 21:20:14 +0200 Subject: [PATCH] Add query-register to read key values --- basis/windows/registry/registry.factor | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/basis/windows/registry/registry.factor b/basis/windows/registry/registry.factor index 8bb4d6d26e..516ce54eb3 100644 --- a/basis/windows/registry/registry.factor +++ b/basis/windows/registry/registry.factor @@ -218,3 +218,10 @@ TUPLE: registry-enum-key ; [ hkey value-name type DWORD deref ] dip dup length set-reg-key ] with-open-registry-key ; + +:: query-registry ( key subkey value-name -- value ) + key subkey KEY_READ [ + value-name f 0 DWORD dup :> ptype MAX_PATH reg-query-value-ex + ptype DWORD deref dup :> type ${ REG_SZ REG_EXPAND_SZ REG_MULTI_SZ } in? + [ utf16n decode type REG_MULTI_SZ = [ "\0" split 2 ] [ 1 ] if head* ] when + ] with-open-registry-key ; -- 2.34.1