CD open close/de

│ Deutsch (de) │ English (en) │

Zurück zur Seite Code Beispiele.

Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozedur öffnet bzw. schliesst ein CD / DVD Laufwerk.

uses
  MMSystem, ...;
  
  ...
  
procedure subCDAufZu(chrDriveChar: char; blnOeffnen: boolean);
begin
  if mciSendString(PChar('open ' + chrDriveChar + ': type cdaudio alias cdlw'),
    nil, 0, 0) = 0 then
  begin
    if blnOeffnen = True then
      mciSendString('set cdlw door open wait', nil, 0, 0)
    else
      mciSendString('set cdlw door closed wait', nil, 0, 0);
    mciSendString('close cdlw', nil, 0, 0);
  end;
end;
  
  ...

--Olaf 05:35, 22 May 2013 (UTC)