Hola Anel.
Para obtener los datos del procesador usando el registro de windows:
Código Delphi
[-]
uses Registry;
function DatosProcesador: TStrings;
const
CPUKEY = '\HARDWARE\DESCRIPTION\System\CentralProcessor';
var
i: Integer;
TS1: TStrings;
begin
TS1:= TStringList.Create;
try
with TRegistry.Create do
try
RootKey:= HKEY_LOCAL_MACHINE;
if OpenKey(CPUKEY, False) then
begin
GetKeyNames(TS1);
Result:= TStringList.Create;
for i:= 0 to TS1.Count -1 do
if OpenKey(CPUKEY + '\' + TS1[i], False) then
begin
Result.Add('Núcleo: '+IntToStr(i));
Result.Add('Nombre: '+ReadString('ProcessorNameString'));
Result.Add('Identificador: '+ReadString('Identifier'));
Result.Add('Fabricante: '+ReadString('VendorIdentifier'));
Result.Add('Velocidad Mhz: '+IntToStr(ReadInteger('~Mhz')));
Result.Add(' ');
end;
end;
finally
Free;
end;
finally
TS1.Free;
end;
end;
Llamada de ejemplo:
Código Delphi
[-]
ListBox1.Items:= DatosProcesador;
Un saludo.