CD Wechsel erkennen

look2k · Hält's aus hier Beiträge: 13

hi @all

ich möchte ein programm schreiben das auf den wechsel einer cd wartet und danach den cd root auf spezielle dateien durchsucht.

ich habe schon überall nach möglichkeiten gesucht, aber leider nichts gefunden.

da ich nicht mit nem timner ständig den cd inhalt lesen will um zu erfahren ob eine neue cd eingelegt wurde, da es ja auch extrem resourcen fressen währe müsste es theoretisch möglich sein per Massage Handle die nachricht über das öffnen/schließen der cd-rom schublade zu erhalten.

denn wenn man autorun eingeschalten hat erkennt windows ja auch das eine neue cd eingelegt wurde und versucht wenn vorhanden die autorun angaben auszuführen.

ich danke im vorraus für eure infos.

cu look2k

look2k · Hält's aus hier Beiträge: 13

hi @all
hat sich erledigt hab es nun gefunden und etwas angepasst da es mir etwas zu viel code war.

hier der modifiezierte code:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

 private
procedure WMDeviceChange(var Msg: TMessage);
message WM_DEVICECHANGE;
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;
.....
.....
procedure TForm1.WMDeviceChange(var Msg: TMessage);
const 
DBT_DEVICEARRIVAL = $8000;
DBT_DEVICEREMOVECOMPLETE = $8004;
var
Str : String;
begin
inherited;
 case Msg.wParam of
DBT_DEVICEARRIVAL: Str := 'Cd wurde eingelgt!!!';
DBT_DEVICEREMOVECOMPLETE : Str := 'Cd wurde entfernt!';
end;
ShowMessage(Str);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme