home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_PAS / XLIB_TP5.ZIP / DEMO / DEMO3_TP.PAS < prev    next >
Pascal/Delphi Source File  |  1993-08-08  |  1KB  |  28 lines
  1. uses X_Detect;
  2.  
  3. begin;
  4.   WriteLn('Hardware detection demo...');
  5.   WriteLn;
  6.   WriteLn('Graphics Card    : ',VideoNames[x_graphics_card]);
  7.   WriteLn('Processor        : ',pzNames[x_processor]);
  8.   WriteLn('Math Co-Processor: ',cpNames[x_coprocessor]);
  9.  
  10.   Write  ('Mouse Driver     : ');
  11.   case x_mousedriver of
  12.     false : WriteLn('not installed');
  13.     true  : begin;
  14.                WriteLn('installed (Mouse Driver vers ',MouseVersion div $100,
  15.                       '.',MouseVersion mod $100,')');
  16.           Write('                   ');
  17.           case MouseType of
  18.             BUS_MOUSE    : write('Bus Mouse on IRQ ');
  19.                 SERIAL_MOUSE : write('Serial Mouse on IRQ ');
  20.             INPORT_MOUSE : write('Inport Mouse on IRQ ');
  21.             PS2_MOUSE    : write('PS/2 Mouse on IRQ ');
  22.             HP_MOUSE     : write('HP Mouse on IRQ ');
  23.             else           write('Unknown Mouse on IRQ ');
  24.               end;
  25.               WriteLn(MouseIRQ,' with ',MouseButtonCount,' buttons.');
  26.             end;
  27.   end;
  28. end.