La detección de inserción de cd / expulsión

La deteccion de insercion de cd / expulsion

La deteccion de insercion de cd / expulsion : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como detectar cuando se ha insertado un CD / eliminado.
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp { Private declarations }
& nbsp & nbsp & nbsp & nbsp procedimiento WMDeviceChange(var Msg: TMessage) mensaje WM_DeviceChange
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp { Public declarations }
& nbsp & nbsp final

procedure TForm1.WMDeviceChange(var Msg: TMessage)
const
& nbsp & nbsp DBT_QUERYCHANGECONFIG = $0017
& nbsp & nbsp DBT_CONFIGCHANGED = $0018
& nbsp & nbsp DBT_CONFIGCHANGECANCELED = $0019
& nbsp & nbsp DBT_DEVICEARRIVAL = $8000
& nbsp & nbsp DBT_DEVICEQUERYREMOVE = $8001
& nbsp & nbsp DBT_DEVICEQUERYREMOVEFAILED = $8002
& nbsp & nbsp DBT_DEVICEREMOVEPENDING = $8003
& nbsp & nbsp DBT_DEVICEREMOVECOMPLETE = $8004
& nbsp & nbsp DBT_DEVICETYPESPECIFIC = $8005
& nbsp & nbsp DBT_USERDEFINED = $FFFF
var
& nbsp & nbsp tmpStr : String
begin
& nbsp & nbsp heredado
& nbsp & nbsp caso Msg.wParam de
& nbsp & nbsp & nbsp & nbsp DBT_DEVICEARRIVAL : tmpStr := 'CD INSERTADO!!!'
& nbsp & nbsp & nbsp & nbsp DBT_DEVICEREMOVECOMPLETE : tmpSTr := 'CD ELIMINADO!!!'
& nbsp & nbsp final
& nbsp & nbsp ShowMessage(tmpStr)
fin