funktionierende Unit die Hardware-IDs berechnet

[BUG]

Ich habe den wackelnden Code- Teil gefunden (erster Block in gethardwareid):

Delphi-Quellcode:

var a,b,c,d : Longword;
//...
  try
      asm
        mov eax,1 // eax registeri cpuid komutunun parametresidir
        db $0F, $A2 // cpuid komutu
        mov a,EAX
        mov b,EBX
        mov c,ECX
        mov d,EDX
      end;
      CPUID:=inttohex(a,8) + '-' + inttohex(b,8) + '-' + inttohex(c,8) + '-' + inttohex(d,8);
   except
      CPUID:='0000-D342-F921-M068';
   end;

Aber auch den Aufruf von getCPUSpeed() würde ich mir sparen: dieser Wert wird nicht weiter verwendet, aber innerhalb der Funktion 2x Sleep ausgeführt.


MfG,
Bug