Datos de la computadora

[Roilo]

Tengo algo para ti...

Código Delphi [-]
function GetComputerName : String; {Determinar Nombre de PC}
var
   pcComputer : PChar;
   dwCSize    : DWORD;
begin 
   dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
   GetMem( pcComputer, dwCSize );
   try
      if Windows.GetComputerName( pcComputer, dwCSize ) then 
         Result := pcComputer;
   finally
      FreeMem( pcComputer ); 
   end; 
end;

Buscando por el registro de Windows encontré una clave que contenía caracteristicas del CPU de mi Maquina y creé este código para cacturarla. Hasta ahora no me cuadra, porque solo me ha servido para los procesadores Intel. Agradeceria que alguien pusiera aqui otra forma de cacturar las caracteristicas del CPU...

Agregar Registry al uses de tu FORM...

Código Delphi [-]
with TRegistry.Create do {Determinar Caracteristicas del CPU}
  try
    RootKey:= HKEY_LOCAL_MACHINE; // <-- La clave root
    if OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',FALSE) then
    begin
      if ReadString('ProcessorNameString')<>'' then
       begin
        label8.Caption :=ReadString('ProcessorNameString');
        closekey;
       end
       else
      label8.Caption := '              CPU sin determinar...';
    end;
  finally
    Free;
  end;

Espero te sirva.