unit module Win32::Registry::Subkeys;
use Win32::Registry;

use NativeCall;

sub get-subkeys(Str:D $h, Str:D $k) is export {
    my $hkey-handle = get-hkey-handle($h);

    my int32 $hkey;
    my $success = RegOpenKeyExW(
            $hkey-handle,
            wstr($k),
            0,
            KEY_QUERY_VALUE,
            $hkey
    );

    if $success != ERROR_SUCCESS {
        die "Could not open key to {get-hkey($h)}\\$k";
    }

    $success = RegQueryInfoKeyW($hkey, 0, 0, 0, my int32 $num-subkeys, my int32
    $max-sk-len, 0, 0, 0, 0, 0, 0);

    my @subkeys;
    for ^$num-subkeys {
        # the native call function gets placed in the loop to avoid problems:
        # see issue #1719 at https://github.com/MoarVM/MoarVM/issues/1719
        sub RegEnumKeyExW(
                int32 $hkey,
                # 1 handle to an open reg. key
                int32,
                # 2 the index of the subkey to retrieve
                CArray[uint16],
                # 3 pointer to a buffer
                int32 is rw,
                # 4 pointer to a variable
                int32,
                # 5 unused
                CArray[int16],
                # 6 pointer to a buffer, can be null
                int32,
                # 7 pointer to a variable, can be null
                int32
                # 8 pointer to a file structure, can be null
                          ) returns int32 is native('kernel32') {*};

        my $subkeyname = CArray[uint16].new;
        $subkeyname[$_] = 0 for 0 .. $max-sk-len;
        RegEnumKeyExW(
                $hkey,
                $_,
                $subkeyname,
                $max-sk-len + 1,
                0, CArray[int16],
                0,
                0);
        my $name = '';
        for ^$max-sk-len {
            $name ~= chr($subkeyname[$_]) if $subkeyname[$_].so;
        }
        my $key = join '\\', get-hkey($h), $k, $name;
        push @subkeys, $key;
    }
    return @subkeys;
}



head

Win32::Registry::Subkeys - Retrieve subkeys from the Windows registry


code

=begin code :lang<raku>

use Win32::Registry::Subkeys;
my $hive = 'HKEY_LOCAL_MACHINE';
my $key  = 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths';
my @array  = get-subkeys( $hive, $key );

=end code


Win32::Registry::Subkeys uses the NativeCall module to execute the
WinAPI functions to extract the subkeys below a key in the registry.


Returns an array with each element containing a string representing a subkey
within a given C<$key> in the registry C<$hive>.


This library is free software; you can redistribute it and/or modify it under
the Artistic License 2.0.


root

README

Registry

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Subkeys

NAME

SYNOPSIS

DESCRIPTION

ROUTINES

get-subkeys(Str:D $hive, Str:D $key)

AUTHOR

COPYRIGHT AND LICENSE

Win32::Registry v0.0.4

Authors

License

Dependencies

Test Dependencies

Provides

Documentation