Esse é o Volume Serial, o Serial físico do HD se consegue com outra function, não tenho ela, mas no google vc encontra.
Samuel M. Basso escreveu: > Segue abaixo funcao que utilizo: > > > function GetSerialNumHD(FDrive:String) :String; > var > Serial:DWord; > DirLen,Flags: DWord; > DLabel : Array[0..11] of Char; > begin > try > GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0); > Result := IntToHex(Serial,8); > except > Result := ''; > end; > end; > > > > > > 2009/12/7 Gilmar Barbosa <gilmarbgo...@gmail.com> > > >> Bom Dia, >> >> Gostaria de ver se alguém possui uma rotina para descobrir o número de >> série >> do HD, pois pretendo gravar este número durante a instalação do sistema ? >> >> Estou utilizando o Delphi 2010. >> >> Obrigado, >> >> Gilmar >>