CPUID Code funktioniert nicht

[Muetze1]

Auch wenn es alt ist und nur ausgegraben wurde, es wird ja anscheinend immernoch gefunden. Von daher...

Zitat von lkz633:

Delphi-Quellcode:

//IntToPos ist notwendig, da in extrem seltenen Fällen negative CPU-ID's vorkommen
  function IntToPos(Value: Integer): integer; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;
  function IntToPos(Value: Int64): int64; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;

Was für ein Müll. Dann sollte er (der Original Author, der Threadersteller hat ihn auch nur gefunden) einfach mal ein LongWord anstatt einem LongInt/Integer nehmen, dann hat er auch kein Problem mit dem Vorzeichen...

Zitat von lkz633:

Auf 3 Rechnern, die mit Images erstellt worden, liefert der Code jedesmal dieselbe ID.

Dreimal der gleiche Prozessor. Es wird schliesslich nicht die Seriennummer ermittelt (die ja nach Protesten bei den meisten BIOS Herstellern per default ausgeschaltet wird) sondern die reine Typ, Familie, ID Kombination + Vendor. Da steckt nichts hinter...