Fórum Recuperar o Numero do HD #222317

utiliza esta função onde o serial é o numero de serie da unidade que vc quer saber.


var
Serial: DWord;
DirLen: DWord;
Flags : DWord;
DLabel: array[0..11] of char;
Drive: String;
begin

try
// Captura o número de série
GetVolumeInformation(PChar(Drive), DLabel, 12, @Serial, DirLen, Flags, nil, 0);

a variavel serial é o numero de serie;

drive é o drive a ser analisado: C / D


[] ´s