Obtener información del cpu

[ManuelPerez]

Hola a todos lo que necesito saber es como hacer para obtener algún dato, como ser el verdadero número de serie del disco duro o otro dato que sea unico por computadora. Solamente necesito un dato que no sea visible y que sea unico e irrepetible por máquina.

muchas gracias.. este foro es lo mejor!!!!!

[[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

[ManuelPerez]

Te cuento que me paso algo muy curioso con esa función, obtuve el mismo " número de serie " en dos máquinas distintas. Me parece que esa función obtiene el número de partición de disco.... puede ser???

gracias

[[Caral]]

Hola
Es curioso, a mi si me da diferente numeración, incluso en una memoria USB me da el numero de esta.
Saludos

[ManuelPerez]

Yo lo para que no me puedan copiar el sistema, de esta forma al arrancar el sistema verifica el número de serie de los cpu habilitados y si no esta activado se clava... pero hoy me paso que dos maquinas distintas tenian el mismo´número.

cuando active a una , la otra entró sin ningun drama... será una coincidencia ???

[[Caral]]

Hola
Puede ser.
Para hacer que no te copien el programa hay muchas maneras de asegurarte, entre ellas esta.
A mi me gusta poner este dato en una base de datos y ademas colocar un codigo único que se genera cuando se inicia un programa que instala.
Bueno, que decirte, no se.
Saludos

[ManuelPerez]

Gracias por tu respuesta rápida.. voy a seguir averiguando. Saludos

[[Caral]]

Hola
Puede ser que la informacion este separada o sea sutil, intenta modificando estos parametros.

Código Delphi [-]
Result := IntToHex(SerNum,8);
 Insert('-', Result, 5);

Por ejemplo asi:

Código Delphi [-]
Result := IntToHex(SerNum,8);
 Insert('-', Result, 8);

o asi:

Código Delphi [-]
Result := IntToHex(SerNum,15);
 Insert('-', Result, 8);

Tal vez tengas variantes.
Saludos

[[Delphius]]

Hola!
Podrías buscar en los foros un poco, prueba con términos como MAC, números de serie, etc...

Recuerdo que existe un componente que se encarga de obtener información de la PC, pero en estos momentos no recuerdo el nombre y si es o no de pago. Prueba buscando en torry.

Saludos,