Indice # 1

Indice general

Tipo de CPU con Delphi

Recientemente necesité una función que devolviera una cadena con el tipo de CPU utilizado y, después de una extensa búsqueda por internet, finalmente encontré la forma correcta: simple y corta.

La función, publicada como parte del soporte para programadores de Borland (http://community.borland.com), es la siguiente:

function CPUType: string;

var Reg: TRegistry;
begin
  CPUType := '';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', 
       False) then
      CPUType := Reg.ReadString('Identifier');
  finally
    Reg.Free;
  end;
end;

Sólo recuerde que debe incluir Registry en la claúsula Uses del programa.

Como ven, se adapta perfectamente al importantísimo principio KISS (“Keep It Simple, Stupid” o como dice la otra equivocada versión del acrónimo: “Keep It Short and Simple”).

(Luis Paez: yupan03@yahoo.com)