DruckenMister WongFacebook

CD-Laufwerk öffnen/schließen
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Die folgende Prozedur öffnet bzw. schließt das CD-ROM-Laufwerk eines Computers. Wenn mehrere Laufwerke angeschlossen sind, wird das Audio-Laufwerk angesprochen.


uses
  mmsystem;

procedure OpenDrive(AOpen: Boolean);
const
  OpenStr: array[False..True] of string = ('closed', 'open');
begin
  mciSendString(PChar('Set cdaudio door ' + OpenStr[AOpen] + ' wait'), nil, 0, 0);
end;
 

Der Parameter AOpen bestimmt, ob das CD-Laufwerk geöffnet (True) oder geschlossen (False) werden soll.Soll aber ein bestimmtes CD-Laufwerk über den Laufwerksbuchstaben angesprochen werden, wird eine andere Prozedur benötigt:


uses
  mmsystem;

procedure OpenDrive(ADriveChar: Char; AOpen: Boolean);
const
  OpenStr: array[False..True] of string = ('closed', 'open');
begin
  if mciSendString(PChar('open ' + ADriveChar + ': type cdaudio alias cdlw'), nil, 0, 0) = 0 then
  begin
    mciSendString(PChar('set cdlw door ' + OpenStr[AOpen] + ' wait'), nil, 0, 0);
    mciSendString('close cdlw', nil, 0, 0);
  end;
end;
 

ADriveChar bestimmt hierbei, welches Laufwerk angesprochen werden soll.Um das Laufwerk anzusprechen, wird das MCI benutzt.MCI steht für Media Control Interface, was in Deutsch in etwa "Schnittstelle für Multimedia-Gerät" heißt.Über diese Schnittstelle können Multimedia-Geräte unabhängig ihrer Geräteklasse und ihrer Bauform gesteuert werden.Diese Schnittstelle erlaubt es also auch, beliebige CD-Laufwerke anzusteuern und sie zu öffnen bzw. zu schließen.

Ähnliche Seiten: