Como capturar la etiqueta de un Floppy
 

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

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.

Gracias
 

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.

Hola,

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