Obtener información del cpu

[[Caral]]

Hola

Código Delphi [-]

function GetVolumeID(DriveChar: Char): String;
var
MaxFileNameLength, VolFlags, SerNum: DWord;
 Begin
 if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
 @SerNum, MaxFileNameLength, VolFlags, nil, 0)
 then
 begin
 Result := IntToHex(SerNum,8);
 Insert('-', Result, 5);
 end
 else
 Result := '';
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.Text:=GetVolumeId('c');
end;

Saludos