Discussion :

[sivaller]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[tourlourou]

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