Help with Win95 Script

[Eustaquio]

Hi Folks,

I need some help whith a script running in Win95.
It runs in WinNT succesfully.
However, in Win95 it don�t run as expected. What's wrong?

Here is the code:

use strict;
use Win32API::Registry 0.22 qw( :ALL );
#
my $key;
my $type;
my $data;
my $pData = "\"%1\" %*";
#
RegOpenKeyEx( HKEY_CLASSES_ROOT, "exefile\\shell\\open\\command", 0,
                           KEY_READ | KEY_WRITE | KEY_NOTIFY, $key );

for(;;) {
  RegNotifyChangeKeyValue( $key, 1, REG_NOTIFY_CHANGE_LAST_SET,"", 0 );
  RegSetValueEx( $key, "", 0, REG_SZ , $pData, 0 );
  print "Value Changed....\n";
  RegCloseKey( $key );
  RegOpenKeyEx( HKEY_CLASSES_ROOT, "exefile\\shell\\open\\command", 0,
                             KEY_READ | KEY_WRITE | KEY_NOTIFY, $key );
}

At running, the RegNotifyChangeKeyValue method don't goes to "wait state".

Is there any restrictions when using under Win95?

Thanks in Advance,

Eustaquio. [EMAIL PROTECTED]

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin