1:

if fileexists('E:\DeineDatei.txt') then...					

1:
2:

Button1 (Open):
if OpenCD('E') = False then showmessage('Fehler');					

1:
2:
3:

if OpenCD('E') = False then 
  if CloseCD('E') = False then 
    showmessage('Fehler');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

...
  FLastCmdWasOpenDoor: Boolean;
...
  FLastCmdWasOpenDoor := False;
...
procedure ToggleDoor(Drive: Char);
var
  OpenError: Cardinal;

  procedure OpenDrive(ADriveChar: Char; AOpen: Boolean);
  // http://www.delphi-treff.de/tipps/system/wiki/CD-Laufwerk%20%C3%B6ffnen_schlie%C3%9Fen/
  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;

  function GetOpenRootError(D: Char): Cardinal;
  var
    Handle: THandle;
  begin
    {$I-}
    Handle := CreateFile(
      PChar(D + ':\'),
      GENERIC_READ,
      FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
      nil,
      OPEN_EXISTING,
      FILE_FLAG_BACKUP_SEMANTICS,
      0);
    Result := GetLastError;
    if Handle <> INVALID_HANDLE_VALUE then
      CloseHandle(Handle);
    {$I+}
  end;

begin
  if GetOpenRootError(Drive) = ERROR_NOT_READY then
  begin
    if FLastCmdWasOpenDoor then
      OpenDrive(Drive, False)
    else
      OpenDrive(Drive, True);
    FLastCmdWasOpenDoor := not FLastCmdWasOpenDoor;
  end else
  begin
    OpenDrive(Drive, True); 
    FLastCmdWasOpenDoor := True;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 function GetCDStatus(cd_fd : Integer) : TCDStatus;
  var
    sci : cdrom_subchnl;
    res :Integer;
  begin
    res := ioctl(cd_fd, CDROM_DRIVE_STATUS, CDSL_CURRENT);
    case res of
      CDS_TRAY_OPEN, CDS_NO_DISC, CDS_DRIVE_NOT_READY:
      begin
        Result := cdsNotReady;
        Exit;
      end;
    end;
.
.
.