[perl-win32-gui-users] Hooking the MM_MCINOTIFY event

[Steve L. <sl...@se...>]

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.