Detect CD eject and insert

[kraigyb]

I’m trying to monitor a cdrom drive to detect when certain cds are present. Using the built-in Drive actions, GetType, GetSize, and GetInformation, I can find the drive, get the size and label if a disk is present. By themselves, these actions work whether a disk is in the drive or not, and even if the tray is ejected. When I start adding more complexity to the code, Windows takes over and displays a message stating there is no disk is in the drive.
Is there a better way to monitor the status of a cd drive, so I would only use GetInformation if I know a disk is inserted?
Thanks, craig

[Shrek]

Note: If the target drive is a CD-ROM drive or floppy drive, there must be a disk in the drive for this action to work. If there is no disk in the drive, nil is returned.

From Drive.GetInformation, so you can test if a drive has media in it by testing for nil and to monitor a drive start a timer and then constantly check.

As far as I can see the following Volume Management functions are available:

https://msdn.microsoft.com/en-us/library/windows/desktop/aa365730%28v=vs.85%29.aspx

If you want to look through and see if there is anything better then I'll help you code the function.

[kraigyb]

I was testing for media by using a timer and GetSize, which returns -1 if no disk is present even if the tray is ejected. This seems to work until a disk is inserted and then ejected, then the errors start popping up.
From what I’ve read, there is an event that monitors changes in hardware, including cd inserts and ejects. WM_DEVICECHANGE.

https://msdn.microsoft.com/en-us/library/windows/desktop/aa363480(v=vs.85).aspx

here’s a couple more articles.

https://social.msdn.microsoft.com/Forums/vstudio/en-US/9c727e48-9319-400b-8bef-52541e130771/how-to-detect-an-inserted-or-removed-drive

http://www.codeproject.com/Articles/29515/Detect-CD-DVD-Insertion-Ejection

Any ideas how to use this in AMS?

[Shrek]

Yes, use the MemoryEx plugin then subclass the window returned from Application.GetWindowHandle() and you will receive that message.

[Shrek]

  -- Global

  WM_DEVICECHANGE = 0x0219;

  -- Page OnShow

  local s = Subclass.Create(Application.GetWndHandle(),function(hWnd,uMsg,wParam,lParam)
  if(uMsg == 0x0002)then
   Subclass.Remove(Application.GetWndHandle())
   return 0
  end
  if(uMsg == WM_DEVICECHANGE)then
   -- Your code here for handling the message
   -- wParam = event
   -- lParam = pointer to a defined structure
  end
  return Subclass.OldWinProc(hWnd,uMsg,wParam,lParam)
  end)

  -- On Exit

  Subclass.Remove(Application.GetWndHandle())

[kraigyb]

Thanks, Shrek. It works slick! I’ve been too intimidated to use MemoryEx until now. Had to read through the Help and refer to the MS documentation several times before making sense of defined structures, but I finally figured it out. Your sample code was very helpful and got me going in the right direction. Thank you!

[Shrek]

You know for an AutoPlay IDE one really would have thought WM_DEVICECHANGE would have been one of the events available.