[marcoszorrilla]

Para obtener el número de volumen del disco duro:

 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 Saludo.