CD-Laufwerk öffnen/schließen
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.