home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tcdromu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-23  |  1.3 KB  |  63 lines
  1. Program TCDROMu;
  2.  
  3. Uses
  4.  
  5.   VMscdexu,
  6.   VCDROMu;
  7.  
  8.  
  9. Var
  10.  
  11.   Z,Z1,Z2 : INTEGER;
  12.   Err     : WORD;
  13.   S       : STRING;
  14.   cdh     : TCDHandle;
  15.  
  16.   ft      : BYTE;
  17.   LT      : BYTE;
  18.   los     : TFSM;
  19.  
  20.  
  21. BEGIN
  22.  
  23.   WriteLn('VisionTools VCDROMu Tester; Version 1.0');
  24.   WriteLn('Currently requires that MSCDEX be loaded.');
  25.   WriteLn;
  26.  
  27.   WriteLn('VCD_Open( 0, ''MSCDEX'' ) ' );
  28.  
  29.   CDH := VCD_Open( 0, 'MSCDEX' );
  30.  
  31.   If CDH<>NIL Then
  32.   BEGIN
  33.     WriteLn('  Handle is good; VCD is now open.');
  34.  
  35.     WriteLn;
  36.     WriteLn('# CD-ROM drives ........ ', VCD_GetNumDrives( cdh ) );
  37.  
  38.  
  39.     For Z:=1 to VCD_GetNumDrives( cdh )  DO
  40.     BEGIN
  41.  
  42.       WriteLn;
  43.       WriteLn('CD-ROM Drive ',Z,' Info');
  44.  
  45.       WriteLn('  Name ................. ',VCD_GetDriveName( cdh, 0, Z ) );
  46.       WriteLn('  Method ............... ',VCD_GetDriveMethod( CDH, Z ) );
  47.       WriteLn('  Audio Disk Info');
  48.  
  49.       Err := VCD_GetAudioDiskInfo( cdh, z, ft, lt, los );
  50.  
  51.       WriteLn('    Error .............. ', Err );
  52.       WriteLn('    First track ........ ', FT  );
  53.       WriteLn('    Last track ......... ', LT  );
  54.       WriteLn('    Lead Out-Start ..... ', VCD_MSFToStr( Los ) );
  55.  
  56.  
  57.     END;
  58.  
  59.   END
  60.   ELSE
  61.     WriteLn('  Handle is NIL; VCD could not be opened.');
  62.  
  63. END.