[Sotrono]

Hola, antes te recomiendo que leas la guia de estilo. Este foro no es el mas adecuado para este hilo.

Chequea esto:

Código Delphi [-]
//Truco 46 de Trucomania
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 llamada:

Código Delphi [-]
  ShowMessage(GetVolumeId('c'));

Igualmente, si utilizas el buscador vas a encontrar varios hilos en los que ya se respondio esto, en ésta misma página (abajo de todo) hay links a hilos similares.

Saludos y bienvenido a Club Delphi!!