Lire l'ID de la machine ou du cpu

Bonjour,

Je cherche une fonction qui permet de lire l'ID de ma carte mére.

j'ai ceux-ci qui permet de lire l'ID du CPU :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 function getserial : string; var v1,v2,v3,v4 : longword; begin asm push edx push ecx push ebx push eax mov eax,$80000003 db $f db $a2 mov v1,edx mov v2,eax mov v3,ebx mov v4,ecx pop eax pop ebx pop ecx pop edx end; getserial := inttohex(v1,8)+'-'+inttohex(v2,8)+'-'+inttohex(v3,8)+'-'+inttohex(v4,8); end;
Il marche sur une machine ancienne et sur l'autre (la nouvelle) retourne que des 0.
Pourquoi sur ma nouvelle machine ça retourne 0

Question : Comment y remedier et comment on fait pour lire l'ID de la carte mére ????

Merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function getserial : string;
var v1,v2,v3,v4 : longword;
begin
     asm
        push edx
        push ecx
        push ebx
        push eax
        mov eax, 0 //  pour avoir l'id Intel, mais pê désactivé par l'utilisateur => donne 0
        cpuid // 
        mov v1,edx // l'ordre n'est pas e/abcd/x ?
        mov v2,eax
        mov v3,ebx
        mov v4,ecx
        pop eax
        pop ebx
        pop ecx
        pop edx
     end;
     getserial := inttohex(v1,8)+'-'+inttohex(v2,8)+'-'+inttohex(v3,8)+'-'+inttohex(v4,8);
end;

j'ai testé : Delphi5 ne reconnait pas le mnémonique CPUID, qui est bien à remplacer par DB $0F DB $A2