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;