Thema: Delphi Hardwareinfos

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.199 Beiträge
 
Delphi 12 Athens
 
#8

Re: Hardwareinfos

  Alt 12. Mär 2007, 14:02
Dann versuch es mal hiermit und teile uns dann mit was sich geändert hat:
Delphi-Quellcode:
Function GetID: String;
  Var ID: TCPUID;

  Begin
    If IsCPUID_Available Then Begin
      ID := GetCPUID;
      Result := Format('%.8x %.8x %.8x %.8x', [ID[1], ID[2], ID[3], ID[4]]);
    End Else Result := '[error]';
  End;
Alternativ könntest du ach mal direkt nachsehn, was sich genau ändert.
Programm+Bild im Anhang > speziell darauf achten wo ich was rosa markiert hab.

[edit]
dabei wollt ich grad nach den Werten fragen.

*mit umrechnen anfang* mal sehn was sich findet

[add]
ich hoffe mal du hast genau zwischen den ID-Werten aufgetrennt und das sich Ändernte soll den 2. Wert darstellen

[add2]
OK, entweder hast du nicht an der Grenze aufgetrennt, oder ich rechne falsch ,denn
CPUID $00000001 EBX besagt
Code:
33120    00[color=#ff0000]00[/color]8160 =  0 CPUs
6910336  00[color=#ff0000]69[/color]7180 = 105 CPUs
Miniaturansicht angehängter Grafiken
unbenannt_849.gif  
Angehängte Dateien
Dateityp: exe sys__128.exe (192,0 KB, 24x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat