La détection de cd insérer / éjecter
Cet article montre comment détecter si un CD a été inséré ou supprimé.
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp privé
& ! & ! & ! & nbsp { Private declarations }
& ! & ! & ! & nbsp procédure WMDeviceChange(var Message: TMessage) message WM_DeviceChange
& nbsp & nbsp public
& ! & ! & ! & nbsp { déclarations Publiques }
& nbsp & nbsp fin
procedure TForm1.WMDeviceChange(var Message: 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 hérité
& nbsp & nbsp cas Msg.wParam de
& ! & ! & ! & nbsp DBT_DEVICEARRIVAL : tmpStr := 'CD INSÉRÉ!!!'
& ! & ! & ! & nbsp DBT_DEVICEREMOVECOMPLETE : tmpSTr := 'CD SUPPRIMÉ!!!'
& nbsp & nbsp fin
& nbsp & nbsp ShowMessage(tmpStr)
fin
La detection de cd inserer / ejecter
La detection de cd inserer / ejecter : Plusieurs milliers de conseils pour vous faciliter la vie.
Cet article montre comment detecter si un CD a ete insere ou supprime.
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp prive
& ! & ! & ! & nbsp { Private declarations }
& ! & ! & ! & nbsp procedure WMDeviceChange(var Message: TMessage) message WM_DeviceChange
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& nbsp & nbsp fin
procedure TForm1.WMDeviceChange(var Message: 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 herite
& nbsp & nbsp cas Msg.wParam de
& ! & ! & ! & nbsp DBT_DEVICEARRIVAL : tmpStr := 'CD INSERE!!!'
& ! & ! & ! & nbsp DBT_DEVICEREMOVECOMPLETE : tmpSTr := 'CD SUPPRIME!!!'
& nbsp & nbsp fin
& nbsp & nbsp ShowMessage(tmpStr)
fin
La détection de cd insérer / éjecter
By commentfaire
La détection de cd insérer / éjecter : Plusieurs milliers de conseils pour vous faciliter la vie.
