Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Hardwareinfos

    Delphi
    by himitsu, 12. Mär 2007
  jupp grad gemrkt ... hatte ID ausversehn gelöscht :stupid:
  
  Zum Verbinden gibt's viele Möglichkeiten.
  Einfach irgendwie Mathematisch verrechnen/kombinieren ;)
  
  hier z.B. ganz einfach per XOR:
  Function GetCode(Name: String): String;
  Var ID: TCPUID;
  i: Integer;
• Forum: Sonstige Fragen zu Delphi

  Re: Hardwareinfos

    Delphi
    by himitsu, 12. Mär 2007
  Ja, die GUID soll, oder besser muß sich ändern, es wird schließlich sekündlich 'ne Neue von Windows angefordert ... ist ein Testprogamm einer meiner Units (halt die mit den ganzen "System"-Funktionen) ;)
  
  OK, ich hab richtig gerechnet und du hattest eben nicht an den Registergrenzen getrennt *erleichtert bin*
  
  
  So, dann hier mal die korregierte Funktion :angel:
  in EBX ist meines Erachtens...
• Forum: Sonstige Fragen zu Delphi

  Re: Hardwareinfos

    Delphi
    by himitsu, 12. Mär 2007
  Dann versuch es mal hiermit und teile uns dann mit was sich geändert hat:
  Function GetID: String;
  Var ID: TCPUID;
  
  Begin
  If IsCPUID_Available Then Begin
  ID := GetCPUID;
  Result := Format('%.8x %.8x %.8x %.8x', , ID, ID, ID]);
  End Else Result := '';
  End;
• Forum: Sonstige Fragen zu Delphi

  Re: Hardwareinfos

    Delphi
    by himitsu, 12. Mär 2007
  Hast du vielleicht mehrere CPUs/Kerne?
  (Multiprozessor, DualCore oder sowas)
  
  Dann könnte es eventuell daran liegen auf welchem Kern das Programm gerade läuft, also vorm welchem die CPUID ausgelesen wird. :gruebel:
  
  
  PS: die CPUID liefert nur informationen über die CPU, also es ist egals was sonst in/an dem Rechner dran ist.
  
  CPUID $00000001 liefert z.B.:
  SerialNumber, Family, Stepping,...