I am trying to capture the notify event in a Win32::GUI application when I load a file using winmm and mciSendStringA. According to Microsoft I can pass in a notify flag so that it will post an MM_MCINOTIFY message when the device completes an action. http://msdn.microsoft.com/en-us/library/ms713401(VS.85).aspx

How can I capture that event with Win32::GUI::Dialog? Is is like a Terminate event? sub MainWindow_Terminate{...} I tried sub MainWindow_MM_MCINOTIFY{...} but it did not work.

 

I have also tried Hook but that did not work either:

my $MM_MCINOTIFY = 953;
$mainwindow->Hook($MM_MCINOTIFY, \&mciNotify);
 
#########################
sub mciNotify{
    print "mciNotify: @_\r\n";
    return 1;
    }

 

 

 

Thanks for any pointers.