Como capturar la etiqueta de un Floppy

[Roilo]

Necesito la función o el procedimiento para capturar en una variable la etiqueta de un floppy disk, te lo agrdesco de antemanos ....

[dec]

Hola,

Código Delphi [-]
 function NombreVolumenUnidad(const letraUnidad: char) : string;
 var
   auxiliar: DWORD;
   buffer: array[0..MAX_PATH] of char;
 begin
   GetVolumeInformation(PChar(letraUnidad + ':\'), buffer,
     SizeOf(buffer), nil, auxiliar, auxiliar, nil, 0);
   Result := buffer;
 end;

Nota: El código es una adaptación, cuando no copia descarada (o no tanto, sino de qué esta nota) del "tip" que puede hallarse aquí mismo.

[Roilo]

Tu código me quedó perfecto. Esto lo uso como una llave para aplicaciones...es decir, la clave de acceso a la aplicación viene siendo una convinacion de caracteres unidos a la etiqueta de un floppy, o sea se debe introducir el floppy para que esa etiqueta le de acceso al usuario. Me interesan la formas de acceder a aplicaciones, si tienes alguna otra idea, vale tambien. SALUDOS.

[dec]

Hola,

Esto es como en las películas... "Un año después..."...