Help for this page

Select Code to Download


  1. or download this
    use Win32::API;

...
my $f = Win32::API->new("winmm", "mciSendString", "PPNN", "N");
my $ret = ' ' x 127;  
my $return = $f->Call('set CDAudio door open', $ret, 127, 0);
  2. or download this
    use Win32::API;

...
my $f = Win32::API->new("winmm", "long mciSendString(char * a, char * 
+b, long c, long d)");
my $ret = ' ' x 127;  
my $return = $f->Call('set CDAudio door open', $ret, 127, 0);
  3. or download this
    use Win32::API;

...
my $f = Win32::API->new("winmm", 'long mciSendString(LPSTR a, LPSTR b,
+ long c, long d)');
my $ret = ' ' x 127;
$f->Call('set CDAudio door open', $ret, 127, 0);
  4. or download this
    Modification of a read-only value attempted at C:/Perl/site/lib/Win32/
+API/Type.p
m line 195, <DATA> line 164.