Loading ...
Sorry, an error occurred while loading the content.

218Re: [NTS] Re: Registry Browser (Notetab+Perl)

Expand Messages
  • Alan C.
    May 14, 2003
      Woop woop

      I'm all excited! I just got Win32::TieRegistry to work!

      I found more about it

      http://www.xav.com/perl/site/lib/Win32/TieRegistry.html

      clicked on "specifying constants in your perl code" (code sample below came from there)

      the single / works and everything!

      But I still don't know how to READ :-(

      The next creates a few new keys (i then examined them with regedit and then used regedit to delete them) was harmless on my win 2k.

      Be forwarned: to create the wrong type key in the wrong place in the registry can spell disaster!

      #!perl -w
      use strict;
      my $Registry;
      use Win32::TieRegistry 0.24 (
      TiedRef => \$Registry, Delimiter => "/", ArrayValues => 1,
      SplitMultis => 1, AllowLoad => 1,
      qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
      KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
      );
      $Registry->{"LMachine/Software/FooCorp/"}= {
      "FooWriter/" => {
      "/Fonts" => [ ["Times","Courier","Lucinda"], REG_MULTI_SZ ],
      "/WindowSize" => [ pack("LL",24,80), REG_BINARY ],
      "/TaskBarIcon" => [ "0x0001", REG_DWORD ],
      },
      } or die "Can't create Software/FooCorp/: $^E\n";

      --
      Later. Alan.
    • Show all 17 messages in this topic