CD open close

From Lazarus wiki
Jump to navigationJump to search
Windows logo - 2012.svg

This article applies to Windows only.

See also: Multiplatform Programming Guide

Deutsch (de) English (en)

These procedures open and close a CD / DVD drive:

uses MMSystem, ...;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
// opens the CD-ROM drive
mciSendstring('SET CDAUDIO DOOR OPEN', nil , 0, Form1.Handle);
mciSendString ('close cdlw', nil, 0, 0)
end;

procedure TForm1.Button2Click (Sender: TObject);
begin
// closes the CD-ROM drive
mciSendstring('SET CDAUDIO DOOR CLOSED', nil , 0, Form1.Handle);
mciSendString ('close cdlw', nil, 0, 0)
end;

...

If you want to wait until the last operation is finished then this procedure will open/close a CD-ROM/DVD depending on the value of the blnOpen boolean variable:

uses
  MMSystem, ...;
  
  ...
  
procedure cdOpenClose(chrDriveChar: char; blnOpen: boolean);
begin
  if mciSendString(PChar('open ' + chrDriveChar + ': type cdaudio alias cdlw'), nil, 0, 0) = 0 then
    begin
      // open CD-ROM drive
      if blnOpen = True then
        mciSendString('set cdlw door open wait', nil, 0, 0)
      // close CD-ROM drive
      else
        mciSendString('set cdlw door closed wait', nil, 0, 0);

      mciSendString('close cdlw', nil, 0, 0);
    end;
end;
  
  ...