home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tdoshu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-23  |  1.7 KB  |  86 lines
  1. program tdoshu;
  2.  
  3.  
  4. uses
  5.  
  6.   vgenu,
  7.   vdoshu;
  8.  
  9.  
  10.  
  11. Var
  12.  
  13.   infolevel : word;
  14.   serialnum : longint;
  15.   vollabel  : string;
  16.   filesys   : string;
  17.  
  18.   ver       : WORD;
  19.   verb      : BYTE;
  20.   OEM       : BYTE;
  21.   serial    : LONGINT;
  22.  
  23.   b         : BOOLEAN;
  24.  
  25.   ERr       : WORD;
  26.  
  27. begin
  28.  
  29.   WriteLn;
  30.   WriteLn('Visionix VDOSHU Tester');
  31.   WriteLn('Version 0.1; December 1993' );
  32.   WriteLn;
  33.  
  34.  
  35.   WriteLn('DOS_GetData');
  36.  
  37.   DOS_GetData( Ver, OEM, serial );
  38.  
  39.   WriteLn('  Version .............. ', ver    );
  40.   WriteLn('  OEM .................. ', oem    );
  41.   WriteLn('  Serial number ........ ', serial );
  42.  
  43.  
  44.   WriteLn;
  45.   WriteLn('Dos Startup Drive ...... ', DOS_GetStartupDrive );
  46.  
  47.   WriteLn;
  48.   Write  ('MS-DOS Version info .... ' );
  49.  
  50.   Err := DOS_GetMSDOSVersion( B, Verb );
  51.  
  52.   Write( 'Error=',err,'   Version=',Verb );
  53.  
  54.   If B Then
  55.     WriteLn('   (IN HMA)')
  56.   ELSE
  57.     WriteLn('   (Not in HMA)');
  58.  
  59.   WriteLn;
  60.   WriteLn('C: Get free space ...... ' , Dos_GetDiskSpaceFree( 3 ) );
  61.   Write  ('C: Is removable? ....... ' );
  62.  
  63.   Err := Dos_IsRemovMediaDev( 3, B );
  64.  
  65.   WriteLn(' Error=', err, '   Removable=',B );
  66.  
  67.  
  68.  
  69.   WriteLn;
  70.   Writeln('DOS_GetMediaID=',DOS_GetMediaID( 3,
  71.                                             infolevel,
  72.                                             serialnum,
  73.                                             vollabel,
  74.                                             filesys     ) );
  75.  
  76.  
  77.  
  78.   WriteLn('  InfoLevel ............ ', infolevel );
  79.   WriteLn('  SerialNum ............ ', PtrToHex(Pointer(SerialNum)) );
  80.   writeln('  Volume Label ......... ', VolLabel  );
  81.   WriteLn('  File System Type ..... ', FileSys   );
  82.  
  83.  
  84.  
  85. end.
  86.