Comments for How to programmatically open and close the CD-Rom drive.

re: How to programmatically open and close the CD-Rom drive.

2004-10-23T13:39:10-07:00

Improved close function, tested on XP only:program CDROM_Close;{$APPTYPE CONSOLE}uses SysUtils, MMSystem;begin if ParamCount <> 1 then WriteLn('Give drive letter as parameter') else begin // Close drive X: mciSendString(PChar('open cdaudio!' + ParamStr(1) + ': alias drive'), nil, 0, 0); mciSendString('set drive door closed wait', nil, 0, 0); WriteLn('Drive ' + ParamStr(1) + ' closed'); end;end.

How to programmatically open and close the CD-Rom drive.

2003-06-14T13:50:46-07:00

I use Delphi v5 and Windows XP. The four functions work fine except that when you start your program the fourth function (ie, "close specific drive") does not work until you first open the drive with the third function (ie, "open specific drive").Personally, I think that makes functions #3 and #4 useless. If it doesn't work reliably it's not worth using at all.

How to programmatically open and close the CD-Rom drive.

2003-04-27T06:48:12-07:00

I am using Windows XP Home Edition and Delphi 6. My CD-ROM is a single button CD-ROM. The progrgam works perfect, but I was wandering if it can be opened and closed from the same button.

How to programmatically open and close the CD-Rom drive.

2003-03-06T03:26:17-08:00

The close function doesn't work!Only the open works fine...