home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / melyviz / cdrombol / pcxcdp2.pas next >
Encoding:
Pascal/Delphi Source File  |  1994-08-31  |  424 b   |  18 lines
  1. program PCXCDP2; { PC-X CD-ROM Player }
  2.  
  3. uses PCXCDU2, Crt;
  4.  
  5. begin
  6.    ClrScr;
  7.    if CD_Letters=0 then
  8.       WriteLn('Error: No CD-ROM drives found!')
  9.    else begin
  10.       WriteLn('Number of CD-ROM drives detected: ',CD_Letters);
  11.       WriteLn('The first CD-ROM drive is ',Chr(CD_Startletter+65),':');
  12.       WriteLn('Currently used CD-ROM drive is ',Chr(CD_Startletter+65),':');
  13.       WriteLn;
  14.    end;
  15. end.
  16.  
  17.  
  18.