Help for this page

Select Code to Download

Select or download this

use Win32API::Registry 0.21 qw( :ALL );

...
RegConnectRegistry( '127.0.0.1', HKEY_LOCAL_MACHINE, $reg_api ) or die
+ $^E;
RegOpenKeyEx( $reg_api, "SOFTWARE\\7-zip", 0, KEY_READ, $key )or die $
+^E;
RegGetKeySecurity( $key, DACL_SECURITY_INFORMATION, $pSecDesc, [] )or 
+die $^E;