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

[JoAnCa]

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.

[aeff]

implementa esta función


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

Caption:=GetVolumeId('c');


espero que te sirva de algo

saludos
aeff!

[aeff]

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