Tengo algo para ti...
Código Delphi
[-]
function GetComputerName : String;
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
try
RootKey:= HKEY_LOCAL_MACHINE; 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.