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
[-]
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!!