
    CMXDETECT.TPU

    Saat kytt tt niin paljon kuin lystt, kunhan et tee mitn
    laitteiston tunnistusohjelmaa ;). Myskin jos kytt tt niin olisi
    mukava jos mainitsisit dokumenteiss minut. Viel jos ohjelma on
    sharewarea niin mukava olisi jos lhettisit koko version edm.
    ohjelmasta. Ei kyllkn ole pakko mutta tee niinkuin tunnet parhaaksi :)
    
    Jotkut tunnistukset eivt vlttmtt 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 Kivistlle. Suunnitteluvirheit en kuitenkaan mielellni ota
    vastaan ;)

    Seuraavasta voit lukea oliot mit unitista lytyy...


{---------------------------------------------------------------------}
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;
{----------------------------------------------------------------------}
