Obtener numero Serie del HDD cuando hay mas de uno, y si tienen varias particiones
 

Ya tengo la forma de obtener el Nro de Serie del Disco Duro (varias formas en los diferentes hilos de este foro), pero como hacer cuando hay mas de un Disco Duro en la PC, y cuando estos tienen varias particiones.

Me refiero a que esto se haga automaticamente, no que se entre el dato por el usuario.

implementa esta función

Código Delphi [-]
function GetVolumeID(DriveChar: Char): String; 
var
   MaxFileNameLength, VolFlags, SerNum: DWord;
begin
   if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
      @SerNum, MaxFileNameLength, VolFlags, nil, 0)
   then 
   begin
     Result := IntToHex(SerNum,8);
     Insert('-', Result, 5);
   end
   else
       Result := '';
end;

un ejemplo de llamada

Código Delphi [-]
 Caption:=GetVolumeId('c');

espero que te sirva de algo

saludos
aeff!

en el TrucoMania hay muchos trucos buenos que te enseñan esto y mucho mas...