[Delphi] Identificativo HDD

[3millennium]

ciao a tutti...
come posso rintracciare l'identificativo dell'hdd o cmq, un numero che mi identifichi univocamente o quasi un compiuter?
tempo fa avevo letto che in tutti gli HDD erano inseriti dei numeri che li identificacano univocamente...come faccio a scoprirlo?
ciao e grazie

[3millennium]

[alka]

Credo che il numero di identificazione di un disco fisso non sia indicativo della macchina, ma solo del disco fisso.

Se stai cercando soluzioni per l'attivazione di prodotti o l'impedimento di copie illegale, probabilmente dovresti prendere in considerazione più aspetti della macchina ospite.

[3millennium]

infatti....mi servirebbe l'identificativo di alcune periferiche!
cmq....se identifico univocamente l'HDD identifico univocamente anche la macchina non credi?

pensavo anche all'indirizzo mac delle schede di rete, così, i possessori di schede di rete vengono identificati solo con quello, ma, piccolo problema, non mi so ricavare neanche quello

[alka]

Originariamente inviato da 3millennium
cmq....se identifico univocamente l'HDD identifico univocamente anche la macchina non credi?

Non lo so. E' facile sostituire un disco fisso e invalidare tutto il meccanismo, a meno che non consideri la sostituzione del disco fisso come una causa sufficiente per invalidare l'attivazione del tuo prodotto.

Comunque, puoi dare un'occhiata ai componenti TurboPower OnGuard, divenuti miracolosamente OpenSource all'inizio di quest'anno.

Ciao!

[3millennium]

ok....provo a guardare!
cmq, si...la sostituzione dell'HDD la considero abbastanza...ciao e grazie

[piccaweb]

Prova con questo script:

var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
SerialNumber: string;
begin
GetVolumeInformation('C:\',
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
'-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
end;

[3millennium]

Ho già trovato, cmq...grazie mille x la risposta...proverò ad integrare anche questo controllo!
ciao ciao