CMXDETECT.TPU

    Saat k„ytt„„ t„t„ niin paljon kuin lyst„„t, kunhan et tee mit„„n
    laitteiston tunnistusohjelmaa ;). My”skin jos k„yt„t t„t„ niin olisi
    mukava jos mainitsisit dokumenteiss„ minut. Viel„ jos ohjelma on
    sharewarea niin mukava olisi jos l„hett„isit koko version edm.
    ohjelmasta. Ei kyll„k„„n ole pakko mutta tee niinkuin tunnet parhaaksi :)
    
    Jotkut tunnistukset eiv„t v„ltt„m„tt„ toimi kaikilla koneilla kunnolla.
    Unittia ei ole testattu kuin omalla koneellani, ja ainoa mik„ ei
    toiminut oli ilotikun tunnistus.

    Bugit, ideat sunmuut mailaa grosse@sci.fi:hin tai messua mbnetiss„
    Ville Kivist”lle. Suunnitteluvirheit„ en kuitenkaan mielell„ni ota
    vastaan ;)

    Seuraavasta voit lukea oliot mit„ unitista l”ytyy...


{---------------------------------------------------------------------}
const cpu_str : array[0..6] of string[7]=
        ('086',
         '186/286',
         '386',
         '386n',
         '486',
         'Pentium',
         'Unknown');

      mouse_type_tbl : array[1..5] of string[15]=
        ('Bus',
         'Serial',
         'Inport',
         'PS/2',
         'Hewlett Packard');

      mouse_lang_tbl : array[0..8] of string[10]=
        ('English',
         'French',
         'Dutch',
         'German',
         'Swedish',
         'Finnish',
         'Spanish',
         'Portuguese',
         'Italian');

type tVersion = record
       Hi,Lo : byte;
     end;

     tMouse = record
       Exist : boolean;
       NumButtons : byte;
       Version : tVersion;
       TypeNum : byte;
       TypeStr,VersionStr : string;
       IRQ : byte;
       LanguageNum : byte;
       LanguageStr : string;
     end;

     tOS = record
       Windows,OS2,_4DOS : boolean;
       DOSVersion,_4DOSVersion : tVersion;
       SmartDrive : boolean;
     end;

     tDetect = record
       VGA,Color,CDROM,PCI,FPU,Gameport,Joystick,XMS,EMM : boolean;
       OS : tOS;
       Mouse : tMouse;
       CPUNum : byte;
       CPUStr : string;
     end;

var Detect : tDetect;
{----------------------------------------------------------------------}