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...