[mierda]

Hola, aqui tengo un ejemplo que te servira:

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;

ejemplo de la llamada

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

Enga un saludo

pd: leyendo los enlaces relacionados, dicen que este truco no funciona.Mejor que utiliza este de los trucos
http://www.clubdelphi.com/trucos/index.php?id=185