my $hwnd = shift || 0;
my $vol=" "x10;
$waveOutGetVolume ||= new Win32::API("Winmm", "waveOutGetVolume", ['N','P'], 'N') || return;
my $ck = $waveOutGetVolume->Call($hwnd, $vol);