processors : 16x AMD Ryzen 9 3900X 12-Core Processor
The 16x seems to be wrong.
processors : 16x AMD Ryzen 9 3900X 12-Core Processor
function GetCpuCount : integer;
var i1 : integer;
begin
result := 16;
for i1 := 1 to 15 do
if RegReadStr(HKEY_LOCAL_MACHINE, 'hardware\description\system\centralProcessor\' + IntToStrExW(i1), 'ProcessorNameString') = '' then begin
result := i1;
break;
end;
end;
function GetCpuCount : integer;
var i1, i2 : integer;
begin
result := 256;
for i1 := 0 to 15 do
if RegReadStr(HKEY_LOCAL_MACHINE, 'hardware\description\system\centralProcessor\' + IntToStrExW(i1 * 16 + 16), 'ProcessorNameString') = '' then begin
result := i1 * 16 + 16;
for i2 := 1 to 15 do
if RegReadStr(HKEY_LOCAL_MACHINE, 'hardware\description\system\centralProcessor\' + IntToStrExW(i1 * 16 + i2), 'ProcessorNameString') = '' then begin
result := i1 * 16 + i2;
break;
end;
break;
end;
end;
Users browsing this forum: Google [Bot] and 11 guests