Função de leitura do número de série do disco rígido
Para você que quer proteger seu software contra cópias piratas, esta função lhe será muito útil:
function SerieHD(FDrive: String):String;
var
NrSerie,DirLen,Flags: DWord;
DLabel:Array[0..11] of Char;
begin
try
GetVolumeInformation(PChar(FDrive+':\'),DLabel,12,@NrSerie,DirLen, Flags,nil,0);
Result:=InttoHex(NrSerie,8);
except
Result:='';
end;
end;