Großer Aufruf an alle die eine CPU besitzen

[Muetze1]

Moin!

Bei mir genauso P15 anstatt P4. Luckie: auch wenn der Beitrag wirklich alt ist, so kann ich dich mit Informationen zur Erkennung der CPUs unterstützen und dir damit vielleicht die Sache etwas leichter machen. Selbst eigenen Code kann ich anbieten...

MfG
Muetze1

[emsländer]

Ich suche im Grunde zwei Funktionen:

getcputyp : string;

getcpuspeed : string;


Gruss

EL

[toms]

Angaben von deinem Tool:

Zitat:

unbekannter AMD-Prozessor
Family: 6
Model: 6
Stepping: 2
Frequenz: 1667.94 MHz

Angaben von anderem Tool:

Zitat:

CPU Name,"Athlon XP"
Vendor,"Advanced Micro Devices"
Frequency,"1680 MHz"
Codename,"Palomino (0.18 µm)"
Family / Ex,"6 (6h) / 7 (7h)"
Model / Ex,"6 (6h) / 6 (6h)"
Stepping,"2 (2h)"
Brand,"0 (0h)"

[Luckie]

Zitat von Muetze1:

Moin!

Bei mir genauso P15 anstatt P4. Luckie: auch wenn der Beitrag wirklich alt ist, so kann ich dich mit Informationen zur Erkennung der CPUs unterstützen und dir damit vielleicht die Sache etwas leichter machen. Selbst eigenen Code kann ich anbieten...

MfG
Muetze1

Wie gesagt, es interessiert mich eigentlich nicht mehr so brennend. Aber wenn du was hättest, dann würde ich es mir zu mindest mal ankucken.

Ich weiß nicht, wie ich es in der version mache, die hier noch kursiert. Aber ich lese die Werte mittlerweile aus der Registry aus:

Delphi-Quellcode:

function GetCPUFromReg: string;
const
  szNameString: array[1..3] of string =
  ('ProcessorNameString', 'Identifier', 'VendorIdentifier');
var
  hReg: HKEY;
  cbData,
    lpType: DWORD;
  i: integer;
begin
  Result := '';
  lpType := REG_SZ;

  if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, CPUREGPATH, 0, KEY_READ, hReg) =
    ERROR_SUCCESS) then
  try
    for i := 1 to length(szNameString) do
      if (RegQueryValueEx(hReg, pchar(szNameString[i]), nil, @lpType,
        nil, @cbData) = ERROR_SUCCESS) and (cbData > 0) then
      begin
        SetLength(Result, cbData);

        if (RegQueryValueEx(hReg, pchar(szNameString[i]), nil, @lpType,
          @Result[1], @cbData) = ERROR_SUCCESS) then
        begin
          SetLength(Result, cbData - 1);
          break;
        end
        else
          Result := '';
      end;
  finally
    RegCloseKey(hReg);
  end;
end;

function GetCPUSpeedFromReg: DWORD;
var
  hReg: HKEY;
  cbData,
    lpType: DWORD;
begin
  result := 0;
  lpType := REG_DWORD;

  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, CPUREGPATH, 0, KEY_READ, hReg) =
    ERROR_SUCCESS then
  try
    if (RegQueryValueEx(hReg, '~MHz', nil, @lpType, nil,
      @cbData) = ERROR_SUCCESS) and (cbData > 0) then
    begin
      RegQueryValueEx(hReg, '~MHz', nil, nil, @result, @cbData);
    end;
  finally
    RegCloseKey(hReg);
  end;
end;

Download: http://www.luckie-online.de/Delphi/S...es/CPUInfo.zip

[Muetze1]

Moin!

GetCPUType / GetCPUSpeed: siehe hier
Level 2 Cache Grösse: siehe hier

Und alles durch die Suche gefunden...

MfG
Muetze1

[Luciano]

Hi...

Das wird angezeigt

AMD Athlon 3000+
Family 6
Model 10
Stepping 0
Frequenz 1820 Mhz


und das ist es

AMD Athlon XP 2500+ (Barton)
Family 6
Model A
Stepping 0
Frequenz 1837 Mhz


Greets

[emsländer]

Danke


Gruss

EL

[Matze]

Luckie, dein Tool ist cool!

Es zeigt einen XP 3000+ an, obwohl ich nur ein 2800+ hab

Ok, der Thread ist wirklich etwas veraltet, meine ANtwort nicht ernst nehmen, ich weiß auch nicht, ob das Problem hier mal aufgetaucht ist.

[Alex_ITA01]

Hi Luckie
Mein AMD-Athlon XP 1800+ wird auch als unbekannter AMD-Proz gekennzeichnet

Family:6
Model:8
Stepping:1
Frequenz:1531.08MHz

Das Tool find ich cool!!!
MFG Alex

[Luckie]

Also die Exe, die noch im ersten Posting ist, die ermittelt den Prozessor über die CPU. Über das Model und das Stepping usw. habe ich dann versucht an Hand der AMD und Intel Spezifukationen den Prozessor zu zo ordnen. Die neuste Version, sollte das anzeigen, was auch Windows anzeigt.