Benachrichtigug beim einlegen einer CD

[geisi]

ich beziehe meine daten aus einem bestimmten grund von einer cd. wenn die cd aber nicht eingelegt ist, gebe ich eine meldung aus. ich möchte, aber dass mein programm benachrichtigt wird, wenn eine cd eingelegt wurde.

funktioniert das? oder muss ich mit einem timer die ganze zeit abfragen ob eine cd eingelegt wurde?

[geisi]

geht das mit usb-sticks?

[geisi]

gibt es irgendeinen anderen weg, als die ständige abfrage in einem timer?

[BenjaminH]

Bitte hör auf zu Pushen und benutze die Forensuche, ich bin mir sicher, dass es das schon gab!!

[geisi]

kann mir hier keiner einen tipp geben?

[Van HelF]

Wer sucht der findet:

Wenn eine CD ins Laufwerk einlegt oder eine CD herausgenommen wird, wird die Botschaft WM_DeviceChange an alle Anwendungen geschickt.
Über den Parameter WParam kann bestimmt werden welche Aktion durchgeführt wurde. Die Botschaft wird nur verschickt, wenn die 'Automatische Benachrichtigung bei Wechsel' aktiv ist.

In dem Botschaftsrecord sind weitere Informationen zum Datenträger-Wechsel enthalten. So lässt sich über die Variable "lpdbv.dbcv_unitmask" ermitteln, auf welches Laufwerk sich der Wechsel bezieht.

Delphi-Quellcode:

private
 procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;

function GetFirstDrive(UnitMask: DWORD): Char;
var
I: Char;
begin
Result:=#0;
for I:='A' to 'Z' do
begin
  if (UnitMask and 1) = 1 then
  begin
    Result:=I;
    break;
  end;
  UnitMask:=UnitMask Shr 1;
end;
end;

procedure TForm1.WMDeviceChange(var Msg: TMessage);
var
lpdb: PDevBroadcastHdr;
lpdbv: PDevBroadcastVolume;
begin
lpdb:=PDevBroadcastHdr(Msg.lParam);
case Msg.wParam of
  //Datenträger eingelegt
  DBT_DeviceArrival:
    //Prüfen, ob es sich um eine DVD oder CD handelt.
    if lpdb^.dbch_devicetype = DBT_DevTyp_Volume then
    begin
      lpdbv:=PDevBroadcastVolume(Msg.lParam);
      if lpdbv.dbcv_flags = DBTF_Media then
        Label1.Caption:=Format('Datenträger in Laufwerk %s eingelegt.',
                               [GetFirstDrive(lpdbv.dbcv_unitmask)]);
    end;
  //Datenträger entfernt
  DBT_DeviceRemoveComplete:
    //Prüfen, ob es sich um eine DVD oder CD handelt.
    if lpdb^.dbch_devicetype = DBT_DevTyp_Volume then
    begin
      lpdbv:=PDevBroadcastVolume(Msg.lParam);
      if lpdbv.dbcv_flags = DBTF_Media then
        Label1.Caption:=Format('Datenträger aus Laufwerk %s entfernt.',
                               [GetFirstDrive(lpdbv.dbcv_unitmask)]);
    end;

end; //case
end;

Da brauchst du auch keine timer dafür.

[geisi]

Danke! Danke! Danke!

Dachte schon, mir antwortet keiner mehr! Vielen Dank! Werde es gleich ausprobieren!
Hätte nur gern gewusst, ob man das auf usb-sticks auch anwenden kann!

mfg geisi

[Stanlay Hanks]

MSDN sagt zu dem Thema:

Zitat von MSDN:

he WM_DEVICECHANGE device message notifies an application of a change to the hardware configuration of a device or the computer.

Die Message wird also auch gesendet, wenn du einen USB Stick einsteckst, weil das ja "a change to the hardware configuration of a device" ist.

Man liest sich, Stanlay