Perl 对 Windows 注册表的操作

life-boy

[代码] 新建键值

1. use Win32::Registry ;
   
2. 
   
3. $key = "SOFTWARE\\newKey";
   
4. $HKEY_LOCAL_MACHINE->Open($key, $keyList);
   
5. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
   
6. $keyList->GetKeys(\@subKeys);
   
7. $numberOfSubKeys = @subKeys;
   
8. print "\tThere is $numberOfSubKeys key\n";
   
9. foreach $subKey (@subKeys){
   
10.    print "\t\t$subKey\n";
    
11. }
    
12. print "\nCreating the Perl6 Key\n";
    
13. $keyList->Create("Perl6",$newKeyList);
    
14. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
    
15. $keyList->GetKeys(\@newSubKeys);
    
16. $numberOfSubKeys = @newSubKeys;
    
17. print "\tThere are now $numberOfSubKeys keys\n";
    
18. foreach $subKey (@newSubKeys){
    
19.       print "\t\t$subKey\n";
    
20. }
    
21. $keyList->Close();
    
22. $newKeyList->Close();

复制代码

[代码] 删除键值

1. use Win32::Registry;
   
2. 
   
3. $key = "SOFTWARE\\yourValue";
   
4. $HKEY_LOCAL_MACHINE->Open($key, $keyList);
   
5. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
   
6. $keyList->GetKeys(\@subKeys);
   
7. $numberOfSubKeys = @subKeys;
   
8. print "\tThere are $numberOfSubKeys keys\n";
   
9. foreach $subKey (@subKeys){
   
10.    print "\t\t$subKey\n";
    
11. }
    
12. $key = "newKey";
    
13. print "\nDeleting the $key Key\n";
    
14. if (!$keyList->DeleteKey($key)){
    
15.    print "Failed to delete $key\n";
    
16. }
    
17. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
    
18. $keyList->GetKeys(\@newSubKeys);
    
19. $numberOfSubKeys = @newSubKeys;
    
20. print "\tThere are now $numberOfSubKeys key\n";
    
21. foreach $subKey (@newSubKeys){
    
22.    print "\t\t$subKey\n";
    
23. }
    
24. $keyList->Close();

复制代码

[代码] 创建新键

1. #!/usr/bin/perl -w
   
2. 
   
3. use Win32::Registry;
   
4. 
   
5. $key_name = "SOFTWARE\\YourKey";
   
6. 
   
7. $status = $HKEY_LOCAL_MACHINE->Create( $key_name, $keyobj );
   
8. 
   
9. if ($status) {
   
10. 
    
11.     $keyobj->SetValueEx( 'Value',  # Name
    
12.         0,        # Reserved.
    
13.         REG_SZ,   # Type
    
14.         'Comments' );
    
15. 
    
16. 
    
17.     $keyobj->Close();
    
18. }

复制代码

[代码] 读取注册表信息

1. use Win32::Registry;
   
2. $| = 1;
   
3. $key = "HARDWARE";
   
4. $HKEY_LOCAL_MACHINE->Open($key, $nextKeyList);
   
5. listKeys($nextKeyList);
   
6. sub listKeys(){
   
7.    $count++;
   
8.    my ($keyList) = @_;
   
9.    my ($nextObj, @subKeys, $subKey);
   
10.    $keyList->GetKeys(\@subKeys);
    
11.    foreach $subKey (@subKeys){
    
12.       $tabString = "   " x $count;
    
13.       print "$tabString $subKey\n";
    
14.       $keyList->Open($subKey, $nextKeyList);
    
15.       listKeys($nextKeyList);
    
16.       $count--;
    
17.    }
    
18.    $keyList->Close();
    
19. }

复制代码

brainwang198206

回复 1# life-boy


  学习了，非常感谢。