Win32::Registry - Query the Windows registry using the Windows API
use Win32::Registry::Subkeys;
my $hive = 'HKEY_LOCAL_MACHINE';
my $key = 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths';
my @array = get-subkeys( $hive, $key );Win32::Registry uses the NativeCall module to execute WinAPI functions to extract information from the registry.
The following Windows API native call functions are currently supported:
RegGetValueW(int32, CArray[WCHAR], CArray[WCHAR], int32, int32, CArray[uint16], int32 is rw) is native("Kernel32.dll") returns int32 is export {*};
RegOpenKeyExW(int32, WCHARS, int32, int32, int32 is rw) is native("Kernel32.dll") returns int32 is export {*};
RegQueryInfoKeyW(int32, int32, int32, int32, int32 is rw, int32 is rw, int32, int32, int32, int32, int32, int32) returns int32 is native('kernel32') is export {*};
Returns the handle for a hive name. Hive names can be shortened to leave off the HKEY_ bit at the beginning. Capitlization is ignored.
my $handle = get-hkey-handler('hkey_local_machine);
my $handle = get-hkey-handler('local_machine); # same as aboveReturns the name of a hive, if found. Dies otherwise.
my $handle = get-hkey('local_machine');
say $handle; # OUTPUT: hkey_local_machineTest to see if a key exists in the registry. Accepts a string representing a path to a registry key. Returns a boolean value.
my $exists = key-exists('hkey_local_machine\SOFTWARE\Microsoft\Windows \CurrentVersion \App Paths');Closes an open key. Accepts a handle to an already open key. Returns boolean value based on success of operation. False will be returned if the key was already closed.
$key-exists = key-exists('hkey_local_machine\SOFTWARE\Microsoft\Windows \CurrentVersion \App Paths');Converts a string into a wide characgter string, suitable for passing to a Windows API native call function. Returns the original string in a native CArray[WCHAR] object that is terminated with a null character.
Opens a registry key. Returns the key's handle. Dies if key does not exist.
my $handle = open-key('local_machine', 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths' );
my $handle = open-key('hkey_local_machine\SOFTWARE\Microsoft\Windows \CurrentVersion\App Paths' );See the documentation for the individual submodules for further details.
Steve Dondley [email protected]
Copyright 2022 Steve Dondley
This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.