Help for this page

Select Code to Download


  1. or download this
    C:\>perl -E "use Win32::Sound; say Win32::Sound::SND_ASYNC; say Win32:
+:Sound::SND_LOOP; say Win32::Sound::SND_NODEFAULT;"
1
8
2
  2. or download this
    ...
Win32::Sound::Play($filename, Win32::Sound::SND_ASYNC & Win32::Sound::
+SND_NODEFAULT);
...
  3. or download this
    C:\>perl -E "use Win32::Sound; say Win32::Sound::SND_ASYNC & Win32::So
+und::SND_NODEFAULT;"
1

...
1
2
1
  4. or download this
    C:\>perl -E "use Win32::Sound; my @as = Win32::Sound::SND_ASYNC; my @n
+d = Win32::Sound::SND_NODEFAULT; say @as | @nd;"
1

C:\>perl -E "use Win32::Sound; $x = (Win32::Sound::SND_ASYNC | Win32::
+Sound::SND_NODEFAULT); say $x"
3